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A transmisión de da- 
tos consiste en el 
transporte físico de la 
información de un lu- 
gar remoto a otro, 
como puede ser de 
un ordenador a un 
terminal y viceversa. 


TRANSMISION DE DATOS 


Ambito: 


Facilidades de transmisión de datos. 

Técnicas de transmisión. 

Control de cambio. 

Implicaciones para el usuario de un sistema de 
telegestión. 


DEFINICION Y EJEMPLOS DE TRANSMISION DE DATOS 


Definición: 


La reproducción de la información en un lugar 
remoto. 


Envío de una carta. 

Llamada telefónica. 

Télex. 

Proceso de datos por ordenador. 


La vía de transmisión puede incluir ele- 
mentos como: 


— Controladores de líneas. 

— Líneas de comunicaciones. 

— Concentradores y multiplexores. 
— Modems. 


Existen dos formas básicas de transmi- 
sión. 


1. Transmisión asíncrona 


Es un modo de transmisión en el que se 
asocia a cada carácter un bit de arran- 
que y otro de parada, de forma que el re- 
ceptor y el emisor están sincronizados 
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LA TRANSMISION DE DATOS 


durante el tiempo que dura la transmi- 
sión del carácter. La transmisión asíncro- 
na es idónea para sistemas que funcio- 
nan a baja velocidad. 


2. Transmisión síncrona 


En este modo de transmisión, el emisor 
y receptor están sincronizados durante 
todo el tiempo que dura la transmisión 
del mensaje. La transmisión síncrona es 
más conveniente cuando la velocidad 
es superior a 1.200 bps y se quiere trans- 
mitir grandes volúmenes de información. 


Fig. 1. TRANSMISION ASINCRONA 


Fig. 2. TRANSMISION SINCRONA 


MM Tipos de transmisión 


Podemos distinguir entre: 


— Sistemas de transmisión en línea 
(ON-LINE). Son sistemas que envían los 
datos directamente al ordenador. 

— Sistemas de transmisión fuera de lí- 
nea (OFF-LINE), que utilizan memorias 
auxiliares para almacenar los datos, que 
después serán utilizados por el ordena- 
dor. 

— Sistemas interactivos, que admiten 
que el usuario “dialogue” con el ordena- 
dor. 

— Sistemas no interactivos, que pro- 
cesan las órdenes dadas por el usuario 
por lotes, sin permitir diálogos mientras 
se ejecutan. 


En toda transmisión se pueden produ- 
cir errores, haciendo que la información 


emitida no coincida con la recibida. Ello 
es debido a distintas causas: 


— líneas de transmisión. Las propie- 
dades eléctricas de las líneas de trans- 
misión, como son la capacitancia, resis- 
tencia e inductancia, hacen que los da- 
tos se distorsionen por el camino. 

— Ruido térmico. En todos los circuitos 
se producen constantemente vibracio- 
nes en sus átomos y moléculas que au- 
mentan con la temperatura. El motivo de 
que se produzca ruido es que los átomos 
a medida que vibran producen ondas 
electromagnéticas que originan “un rui- 
do de fondo”. 

— Velocidad de las líneas. Si la velo- 
cidad de transmisión es lenta se produ- 
cen menos distorsiones, de forma que si: 


— Se transmiten dos impulsos por se- 
gundo, el mensaje podría ser recibido 
perfectamente por el ser humano; 

— Se transmiten 10 impulsos por se- 
gundo, sólo podría ser recibido por un 
equipo receptor muy sensible. 


Niveles de tensión 
| Po] | Po] | 
¡[410 |0|0|4|4|0|4 


Intervalos de tiempo 
SEÑALES TELEGRAFICAS 


Frecuencia 


Intervalos de tiempo 


SEÑALES TELEFONICAS 


[a Fig. 3. 


Para proteger los mensajes de posibles 
errores de transmisión existen diversos 
métodos. 


1. Paridad de caracteres 


Consiste en añadir un bit extra (bit de 
paridad) a cada carácter. 


2. Paridad de bloques 


Cuando un número de caracteres se 
transmite como un bloque, cada bloque 
puede llevar un carácter adicional de 
control. 


3. Realimentación de la información 


Se transmite un duplicado de la infor- 
mación recibida del receptor al emisor. 


4. Códigos especiales 


Aumentan la posibilidad de detección 
de errores, corrigiendolos en algunos ca- 
sos sin tener que retransmitir. 


SJ ULITULT L 


LAA Al 


lA Fig. 4. Correspondencia entre una señal analó- 
gica y digital. 


qu Vías de transmisión 


Hay tres vías de transmisión: 


— Vía de tipo telefónico. 
— Vía de tipo telegráfico. 
— Vía de tipo banda ancha. 


La diferencia radica principalmente en 
la velocidad de transmisión. La clasifica- 
ción se hace de acuerdo a: 


— Baja velocidad: Son las líneas que 
transmiten entre 50 y 200 bps, equivalen- 
te a transmitir de tres a 20 caracteres por 
segundo. á 

— Velocidad media: Transmisión entre 
600 y 4.800 bps, es decir, entre 20 y 100 
caracteres por segundo. 

— Alta velocidad: Transmiten entre 
9.600 y 48.000 bps, equivalente a trans- 
mitir entre 300 y 90.000 caracteres por 
segundo. 


Cuando varios usuarios están utilizando 
a la vez la misma línea de comunicación, 
la independencia que existe entre ellos 
depende mucho de dicha línea. Con al- 
gunas líneas todos los usuarios deben uti- 
lizar el mismo terminal con el mismo pro- 
cedimiento de control de línea. Con 
otras líneas, los terminales pueden ser de 
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distinto tipo, pero deben utilizar la misma 
clase de caracteres de control. Otras lle- 
gan a permitir que los terminales sean 
completamente independientes, e inclu- 
so que utilicen distintas clases de carac- 
teres. 


Capacidad de una línea 
de transmisión 


La capacidad de una línea de comuni- 
cación se mide mediante la relación de 
la cantidad de datos transmitidos y el 
tiempo empleado en transmitir dichos 
datos. A veces se necesita que la canti- 
dad de datos transmitidos sea muy gran- 
de y en otros casos simplemente se re- 
quiere la transmisión de un bit de control. 
En cuanto al tiempo de transmisión, unas 
veces exige una respuesta rápida y en 
otros la respuesta del ordenador al usua- 
rio puede retardarse un poco más. 

El tiempo de respuesta por parte del or- 
denador también varía con la aplicación 
que se esté ejecutando. 


Ñn 
Bl 
TY 
SS 


DATOS EN 
PARALELO 


ANA ll 
DATOS EN SERIE MODULADOS 


DATOS EN 
PARALELO SERIE 


DATOS EN 


[A Fig. 5. Elementos que componen un sistema de 
comunicación. 


qu Líneas telefónicas 


Para poder utilizar la infraestructura de 
la línea telefónica en la transmisión de 
datos entre el ordenador y los terminales 
se ha utilizado la transmisión digital. 

Como sabemos, la información fluye 
entre ordenadores, y dentro de ellos mis- 
mos, en forma de señales analógicas. 
Para convertir la corriente de “bits cua- 
drados” en una gama de frecuencias 
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apropiadas para poder transmitirlos me- 
diante la linea telefónica se utilizan los 
modems. 


Modems 


Para que los datos puedan “viajar” de 
unos ordenadores a otros utilizando 
como medio de transmisión la línea tele- 
fónica, es necesario realizar una transtor- 
mación de señales. La función de los mo- 
dems consiste en realizar estas transfor- 
maciones. 

Internamente el ordenador trabaja con 
datos agrupados de ocho en ocho, die- 
ciséis en dieciséis, etc.. dependiendo, 
del tamaño de la “palabra”. Todos estos 
bits agrupados se manejan a la vez, es 
decir, los ocho o dieciséis de la palabra 
se mueven juntos en formato paralelo. 
Esto se hace así debido a que aumenta 
la velocidad de proceso. 


Fig. 6. El modem: 
permite 
comunicación 
entre 
ordenadores, a 
través de la línea 
telefónica. 


Sin embargo, cuando lo que se preten- 
de es que los datos se transmitan, el for- 
mato no suele ser en paralelo, sino en se- 
rie, debido a que el costo de enviar da- 
tos en paralelo es mucho mayor al nece- 
sitar un hilo para cada dato transmitido. 

Cuando los datos se transmiten en se- 
rie van unos detrás de otros, utilizando 
una misma línea. Cuando un ordenador 
quiere comunicarse con otro, enviándo- 
le datos, el modem toma esta informa- 
ción y transforma todas las señales bina- 
rias que quiere enviar el ordenador, de 
forma que primero hace la conversión de 
paralelo a serie. Luego Modula las seña- 
les haciendo un cambio digital-analógi- 
co y envía esta señal por la línea telefó- 
nica. Al llegar al punto de destino se tie- 
ne que producir la operación contraria, 
es decir, al otro extremo de la línea tie- 
ne que haber otro modem que DEMOdu- 
le la señal convirtiéndola de nuevo en in- 
formación propia del ordenador para 
poder ser entregada al ordenador re- 
ceptor. 
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rutinas útiles PROGRAMA A. RUTINA LIST 


N este último capítulo me 0. es 
de los que se han de- 033E A9 LDA H$A0 
dicado al funciona- 0340 AO LDY ¿$00 
miento del mismo 0342 84 sTY $22 
procesador 65XX in- 0344 85 23 STA $23 
cluiremos algunas ru- 
tinas interesantes 


0346 B1 LDA ($22) ,Y 


que aprovechan la 0348 91 STA ($22) ,Y 
capacidad de la ROM del sistema ope- 0344 C8 INY 
rativo. Se dará una breve explicación de 034B DO BNE $0346 
su funcionamiento y a continuación el lis- Ó34D 26 110 $23 
tado de la rutina. Espero que sean de uti- 
lidad y que puedan ayudar a escribir dr e. 
otras basándose en ellas. : Equa, e pe 10ua 

0352 A9 LDA £$60 
Modificación de la función LIST PS Saa 
0357 LDA ¿SEA 

Si tratamos de incluir la función LIST en 0359 STA $A6BB 
un programa BASIC obtendremos induda- 0350 STA $A6DBC 
blemente un listado del programa en me- co sl 
moria, pero después se retornará al 
modo directo sin poder proseguir el pro- oq e es 
grama que se estaba ejecutando. Asimis- 0364 LDA 4803 
mo, no podemos listar una línea o listar X 0366 STA $4043 
veces el programa con un bucle. 0369 LDA 4836 

Esto puede solucionarse cambiando el ¿e MÍ 
final de la rutina “LIST” que incluye un 
“arranque” del BASIC por un comando pda ap 
RTS. Además, se deberá guardar el apun- 0365 LDA $74 
tador al texto del programa donde se in- 0370 PHA 
cluyó el comando LIST, para que luego el 0371 LDA $75 
programa pueda proseguir donde se in- 6373 ed 
terrumpio. 

He evitado el introducir etiquetas para bs .. 
aquellos que no puedan introducirlas en 0377 $A690 
su programa monitor. A continuación 0374 20 SAADT 
está el listado del programa. Una vez in- 037D 68 


troducida la rutina no tiene más que te- : a 
clear SYS 828 desde el BASIC o G$033C 
desde el monitor, y todo arreglado. 
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037E 85 7B STA $7B 
0380 68 PLA 
0381 85 74 STA $74 
0383 20 F8 AB  JSR $ABF8 
0386 4C 79 00 JMP $0079 


Ahora ya puede introducir en su pro- 
grama BASIC la sentencia LIST o LIST X. 
Después de hacer el listado, el programa 
continuará normalmente. 


Modificación de GOTO, GOSUB y RESTORE 


Es lo que se suele llamar bifurcación o 
restauración por cálculo. Muchas veces 
nos sería muy útil poder introducir en BA- 
SIC los siguientes comandos: 


GOTO A-3 B 
GOSUB C+5 
RESTORE 10 


Esto provocaría inmediatamente un 
“Syntax error”. Sin embargo, se pueden 
modificar las rutinas del interpretador de 
tal forma que esos comandos sean visi- 
bles. 

De esta manera podemos escribir una 
línea BASIC que bifurque a líneas diferen- 
tes según el valor calculado. 

También podemos hacer que se lea un 
determinado DATA, sin necesidad de 
leer todos los anteriores sin más que ha- 
cer RESTORE N, siendo N el número de 
dato a partir del cual queremos hacer la 
lectura. 

A continuación se presenta el listado 
de la rutina. 


LDX X$A0 


LDY A$00 


STX $FF 
STY $FE 
LDX ¿$20 
LDA ($FE),Y 
STA ($FE),Y 
INY 

BNE $C00A 


FP 


F4 


AO 


A2 


A8 


A8 


INC $FF 


BNE $C00A 


CLC 


JMP $A481D 
JSR $C037 


LDA f$C0 
LDX $49 
STA $025 


STX $4024 


La rutina se compone de cuatro partes: 


1.2% C000-CO16. Copia la ROM a la 
RAM que hay debajo de ella desde la po- 
sición $A000 (40960) hasta la $BFFF 
SEA 

2.) C017-C830. Rutina PRINT AT. Sitúa 
el cursor y escribe en la posición indica- 
da. La sintaxis es: SYS 49175, columna, 
fila, “texto”. Puede introducirse sola, sin 
ies: de las otras tres partes. 

3.5) C031-C048. Rutina GOTO N y GO- 
SUB N. Lo único que hay que hacer es un 
SYS 49207 al principio del programa y 
después, cuando la vayamos a utilizar, 
teclear dentro del programa BASIC GO- 
TO No GOSUB N. Debe estar en memo- 
ria la parte 1.* 

4.) C049-C071. Rutina RESTORE N. 
Para utilizarlo deben estar en memoria 
las partes 1.* y 3. Teclee SYS 49252 en 
una línea de programa BASIC antes de 
utilizar el comando RESTORE N, y todo 
listo. 


Rutinas SAVE y LOAD 


Para terminar, daremos un esquema de 
cómo utilizar estas dos rutinas del sistema 
operativo en zonas de memoria que no 
correspondan al área BASIC. 

La rutina LOAD comprenae tres rutinas: 


LOAD $FFD8(65496) 


SETFLS $FFBA(Ó5466) 
SETNAM $FFBD(65469) 


Para cargar/verificar debe hacerse lo 
siguiente: Cargar el ACU con el número 
de fichero lógico (0,1), en X el número de 
dispositivo (0 = teclado, 1 = cinta, 
2 =RS232C, 3 = pantalla, 4 = impreso- 
ra, 8 = disco) y llamar a SETFLS con JSR 
SFFBA. 


A continuación cargue en el ACU la 
longitud del nombre de fichero y en X e 
Y el low-byte y high-byte de la dirección 
de inicio. Si no hace falta el nombre, en 
el ACU se debe haber introducido un $00. 
Llame ahora a la rutina SET NAM con JSR 
SFFBD. 


Por último, cargue el ACU con (1 = ve- 
rify, O = Load), y llame a LOAD con JSR 
SFFDS5. 


Para grabar, siga los mismos pasos de 
llamada a SETLFS y SETNAM. Después car- 
gue dos posiciones consecutivas de la 
página cero (ejemplo: $FB y $FC) con el 
Low-byte y High-byte de la dirección de 
comienzo, y el ACU con $FB. Cargue en X 
e Y el Low-byte + 1 y High-byte de la di- 
rección final a salvar. Ahora llame a la ru- 
tina SAVE con JSR $FFD8. 


Bien, ya puede empezar a experimen- 
tar con todo lo que tiene, ya que es el 
único medio de aprender y llegar a fami- 
liarizarse con los comandos y rutinas usa- 
dos en lenguaje máquina. Con un poco 
de tiempo podrá programar sus propias 
rutinas originales. 


PARECE a continua- 
ción el programa 
PAC-MAN, que ya ha 
aparecido en versión 
para otros ordenado- 
res. 

Como todos sabe- 
mos, el objetivo del 
juego es comerse el mayor número posi- 
ble de puntos antes de que los fantas- 
mas, que pueblan el laberinto que apa- 
rece en nuestra pantalla, nos asesinen. 
Para ello debemos controlar a nuestro 
quesito (PAC-MAN) con las siguientes te- 
clas: 


O — Movernos hacia la izquierda. 
P — Movernos hacia la derecha. 


: PAC-MAN PARA AMSTRAD 


PROGRAMAS 


Programa: PAC-MAN para AMSTRAD 


A — Movernos hacia arriba. 
A — Movernos hacia abajo. 


En el laberinto, aparte de los puntos, 
podemos ver cuatro asteriscos que nos 
darán cincuenta puntos si nos los come- 
mos. En la versión original de este juego, 
cada vez que nos comíamos uno de es- 
tos puntos, los fantasmas que nos perse- 
guían cambiaban de forma y podíamos 
comérnoslos. A cambio, cada vez que 
nos comamos un asterisco aumentará 
nuestra velocidad durante un breve es- 
pacio de tiempo. Tenemos que aprove- 
char dicha oportunidad para huir de los 
fantasmas y para comernos más puntos. 

El número de fantasmas con el que nos 
tenemos que enfrentar se reduce a dos. 
Esto ha sido necesario para que el pro- 
grama no se volviese demasiado lento. 


1000 REM aaa alO Olla lalo lOlOSlSlSlOlSIOlOIOK 


1010 REM *x k 

1020 REM *x PRE > MAN k 

1030 REM x*x xk 

1040 REM AdaSdSIS OSOS lSlOIRlSO OOOO lSjOlOROK KK 

1050 REM 

1060 REM aaSaSIS SOS ISSO lSO ISO lOlSlOlOlOJOK 

1070 -REM x k 

1080 REM x AUTOR k 

1090 REM *k == =======-=- k 

1100 REM * o 

1110 REM * Fco. Morales Guerrero * 

1120 REM x k 

1130 REM ddsSRSSS OS SlSOS SOS jSOlO Ojo lSJOO OK 

1140 REM 

1150 REM ASS S SS SSSIS SOS lSJO OJO lOIOROlOIOKOK 
1160 REM x k 
1170 REM * (c) Ed. Siglo Cultural * 
1180 REM * (c) 1987. * 
1190 REM x k 


1200 REM veo oo dde 
1210 REM 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


1470 
1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


DIM 4444444 ter reirte rrrrrrerrrrteed 
REM * INICIALIZACION DEL PROGRAMA * 
REM AMSSOS OSOS alada alada lalololalolololalok 


DIM N(9),N$(10),P(10) 
DIM S(25, 41),M$(2,3),1(2,8) 


LET M$(1,0)="." 
LET M$(1,1)="x" 
LET M$(1,3)=" " 
LET M$(2,0)="." 
LET M$(2,1)="x" 
LET M$(2,3)=" " 
LET PA=1 
MODE 1 
PEN 3 
CLS 
PRINT TAB(15);"COME - COCOS” 
ERNIME TADCUKA): Sonoras 
PEN 1 
LOCATE 10,14:PRINT "CARGANDO DATAS" 
PEN 2 
LOCATE 12,12:PRINT "ESPERA UN MOMENTO. ” 
REM 
REM AMS SIS SOS lO OSOS llola lalalala jojojoloK 
REM * DEFINICION DE LOS PERSONAJES * 
REM RSS SS SOS SOS SOS lS lalalala lalala jolalalalolak 
REM 
SYMBOL 255,60, 126,255,255,255,255,126,60 : 
SYMBOL 254,60,126,255,15,15,255, 126,60 2 
SYMBOL 253,60,126,255, 240,240, 255,126,60 : 
SYMBOL 252,36, 102,231,231,255,255,126,60 : 
SYMBOL 251,60, 126,255, 255,231, 231,102,36 : 
SYMBOL 250,60, 126,219, 219,126,60,36,66 
SYMBOL 249,60, 126, 219, 219, 126,60, 36, 36 
SYMBOL 248,126,255,189,219,126,36,66,129 : 
SYMBOL 247,126,255, 189,219, 126,36, 36, 36 
REM 
REM ARSS SOS OSOS” ESSE OOOO O lSSlOlOlOlOJOK 
REM * LECTURA DE LOS CARACTERES x 
REM as SIS SOS SlO SOS lS OSOS lolOJO KK 
REM 
FOR I=0 TO 9 
READ N(I) 
NEXT I 
REM 
REM ASSS SOS IS SOS ISSO lO lSjoldlOlOROJOJOK 


REM * LECTURA DE LOS RECORDS x* 
REM SOS SOS SISIO SS lOlO SS lOlOSlSlORSOJOJOJOK 


REM 


FOR I=1 TO 10 
READ N$(1),P(I) 


NEXT 1 
REM 


REM aaa lO SISI IS ESSE OSO SSlSlOlO OOOO OK 


REM * LECTURA DE LAS DIRECCIONES x* 
REM SS SS SISSI SS SS SIE lO lSlOIOJOK 


REM 


FOR I=1 TO 2 
FOR J=1 TO 8 


READ 1(1,J) 


NEXT J 


NEXT 1 
REM 


REM sas S SISSI OIOIOIOOIOIOJOOJOJOK 


REM * PROGRAMA PRINCIPAL x* 
SS 


REM 
CLS 


PAC-MAN CERRADO 
PAC-MAN IZQUIERDA 
PAC-MAN DERECHA 
PAC-MAN ARRIBA 
PAC-MAN ABAJO 
FANTASMA-1 POSICION A 
FANTASMA-1 POSICION B 
FANTASMA-2 POSICION A 
FANTASMA-2 POSICION B 
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1900 
1910 
1920 
1930 
1940 
1950 
- 1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


GOSUB 5590:REM PRESENTACION 

GOSUB 4730:REM TABLA DE RECORDS 

GOSUB 5340:REM INSTRUCCIONES 

GOSUB 5490:REM PULSA UNA TECLA 

GOSUB 4200: REM DIBUJA LA PANTALLA 

PEN 2 

GOSUB 2020 :REM LEE EL TECLADO 

GOSUB 2170 :REM MUEVE EL COME-COME 

GOSUB 2530 :REM ENEMIGO NUMERO 1 

GOSUB 2760 :REM ENEMIGO NUMERO 2 

IF PT<=0 THEN GOSUB 3730:LET PA=PA+1:GOTO 1940 
GOTO 1960 

REM 

REM SS IO SOS lOlOIOROJOJOK 

REM * CONTROL DEL TECLADO * 

REM SOS OSOS lO ISIOIOIOJOKOK 

REM 

LET I$=INKEYS$: IF I$="" THEN LET I$=2$ 

LET Z$=1$ 

LET II=INSTR("O0oPpQqaAa",I$) 

IF II=0 THEN RETURN 

LET X1=X0:LET Y1=YO 

LET XO=X0+1(1,II)+I(1, II)x(S(YO, XO+I(1,1I))=0) 
LET YO=Y0+1I(2,11)+1(2, II)x(S(YO+I(2,11),X0)=0) 
IF XO=41 THEN LET XO=1 

IF XO=0 THEN LET X0O=40 

RETURN 

REM 

REM aa IO OOOO RIOROK KK 

REM * MOVIMIENTO DEL COME-COME x* 

REM SOS S OSOS lO IOJO SES lOlOlORJOlOJOROKAK 

REM 

IF BB>0O THEN LET BB=BB+1: IF BB=60-(10x*xPA) THEN LET BB=0 
IF Xi=X0 AND Y1=YO THEN LET Z$="Z":RETURN 

IF S(YO,XO)=-1 THEN LET PT=PT-1:LET S(YO,X0)=2:LET PU=PU+10:LOCATE 13,2:PRI 


NT USING "+*R$4"; PO 


2250 


IF S(YO,XO)=1 THEN LET PT=PT-1:LET S(YO,X0)=2:LET PU=PU+50:LOCATE 13,2:PRIN 


T USING "*$4$8$$";PU:LET BB=1 


2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 


IF PU>=HI THEN LOCATE 32,2:PRINT USING "$8R8R%";PU:LET HI=PU 
LOCATE X1,Y1:PRINT " " 

LET S(Y1,X1)=2 

IF SW=1 THEN LOCATE XO,YO:PRINT CHR$(255):LET SW=0:LET S(YO, X0)=99: RETURN 
ON II GOSUB 2330,2330,2380,2380, 2430, 2430, 2480, 2480 
LET SW=1:LET S(YO, X0)=99 

RETURN 

REM 

REM xxx MOVIMIENTO A LA IZQUIERDA **x 

REM 

LOCATE XO, YO:PRINT CHR$(254) 

RETURN 

REM 

REM Xxx MOVIMIENTO A LA DERECHA x*xx 

REM 

LOCATE XO, YO:PRINT CHR$(253) 

RETURN 

REM 

REM Xxx MOVIMIENTO A ARRIBA *xx 

REM 

LOCATE XO, YO:PRINT CHR$(252) 

RETURN 

REM 

REM *xx MOVIMIENTO A ABAJO xxx 

REM 

LOCATE XO, YO: PRINT CHR$(251) 

RETURN 

REM 

REM SSSS SS SS OSOS ESjO OSOS OSOS JOK 


2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 


REM 
REM 
REM 
REM 
REM 
LET 


* MOVIMIENTO DEL FANTASMA-1 x 
SS 


**kk CALCULO DE LA DIRECCION *xx 


SO=0:LET MM=MM+1 


IF BB>0 AND SD1=1 THEN LET SD1=0: RETURN 


LET 
LET 
LET 
LET 
LET 
LET 
REM 
REM 
REM 


SD1=1 

X3=X2:LET Y3=Y2 

SX=SGN (X1-X2) 

SY=5GN(Y1-Y2) 
X2=X2+SX+SXx(S(Y2,X2+SX)=0) 
Y2=Y2+5Y+SYx*(S(Y2+SY, X2)=0) 


*x*xx*x MOVIMIENTO *x*x 


LOCATE X3,Y3:PRINT M$(1,M1+1) 


LET 


M1=S(Y2,X2) 


IF M1=99 THEN GOTO 3010 
IF SE1l=1 THEN LET SE1=0:LOCATE X2,Y2:PRINT CHR$(250) : RETURN 


LET 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
LET 


SE1=1:LOCATE X2,Y2:PRINT CHR$(249) : RETURN 
IMSS lSlSlala lalalala lalala lalalala lO OOOO 
*k MOVIMIENTO DEL FANTASMA-2 x*x 
ASIS OSOSlOlOOjOS lalala lOOSlOlojojOOjOjok 


*xxxk CALCULO DE LA DIRECCION *xxk 


SO=0 


IF BB>0 AND LET SD2=1 THEN LET SD2=0: RETURN 


LET 


SD2=1 


IF X3=X4 AND Y3=Y4 THEN LET MM=9 
IF MM<15 THEN LOCATE X4,Y4:PRINT CHR$(248): RETURN 


LET 
LET 
LET 
LET 
LET 
REM 
REM 
REM 


X5=X4:LET Y5=Y4 

SX=SGN (X1-X4) 

SY=SGN (Y1-Y4) 
X4=X4+5X+5X*(S(Y4, X4+SX)=0) 
Y4=Y4+SY+SYx(S(Y4+5Y, X4)=0) 


*xx*k MOVIMIENTO x*xxk 


LOCATE X5,Y5:PRINT M$(2,M2+1) 


LET 


M2=S(Y4,X4) 


IF M2=99 THEN GOTO 3010 
IF SE2=1 THEN LET SE2=0:LOCATE X4,Y4:PRINT CHR$(247): RETURN 


LET 
REM 
REM 
REM 
REM 
REM 


SE2=1:LOCATE X4,Y4:PRINT CHR$(248): RETURN 


ARO OOOO OOOO OOO OOO OK 


*k PERDIDA DE UNA VIDA x 
MSI lalala lalololdlolojojok 


LOCATE XO, YO: PRINT " 


FOR 


I=1 TO 10 


LOCATE XO, YO:PRINT CHR$(255) 
FOR K=1 TO 100 
NEXT K 
LOCATE XO, YO:PRINT " ” 
FOR K=1 TO 100 
NEXT K 
NEXT I 
LOCATE YO,XO:PRINT " ” 
LOCATE Y2,X2:PRINT " " 
LOCATE Y4,X4:PRINT " " 


LET 


NV=NV-1 


IF NV=0 THEN GOTO 3440 


LET 
LET 


YO=16 
Xx0=20 
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3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 


3630 
3640 


3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 


LET Y1=Y0 
LET X1=X0 
LE? 29="Z 
LET BB=0 
LET X2=19 
LET Y2=11 
LET X3=X2 
LET Y3=Y2 
LET X4=21 
LET Y4=11 
LET X5=X4 
LET Y5=Y4 
LET M1=S(Y2,X2) 
LET M2=8(Y4,X4) 
LOCATE 10,24:PRINT "  ”; 
FOR I=1 TO NV-1 
LOCATE 9+1,24:PRINT CHR$(253) 
NEXT I 
LOCATE XO,YO:PRINT CHR$(243) 
GOSUB 3610 
RETURN 
RETURN 
REM 
REM SS lSlOlOlOjOlOK 
REM * GAME OVER * 
REM AMOSOOiOOloiOiololok 
REM 
FOR I=1 TO 5 
FOR J=1 TO 3 
PEN J 
LOCATE 18,13:PRINT " GAME " 
LOCATE 18,14:PRINT " OVER “ 
FOR K=1 TO 140:NEXT K 
NEXT J 


LOCATE 18,13:PRINT ' 
LOCATE 18,14:PRINT " 


FOR K=1 TO 140:NEXT K 
NEXT 1 
GOTO 1910 
REM 
REM ASS SlOlO ONO IVIOJOK 
REM * ESTAS LISTO * 
REM ASS IOOOfOIOJOKK 
REM 
LOCATE 18,13:PRINT "(ESTAS" 
LOCATE 18,14:PRINT "LISTO?" 
FOR J=1 TO 1000 
NEXT J 
LOCATE 18,13:PRINT " 
LOCATE 18,14:PRINT " 
RETURN 
REM 
REM aaa OOOO lO ROjOIOJOK 
REM * TERMINO DE UNA PANTALLA * 
REM SOS ISIO SOS IO OSOS lOOIOJOK 
REM 
FOR I=1i TO 10 
BORDER 12 
FOR J=1 TO 100 
NEXT J 
BORDER O 
FOR J=1 TO 100 
NEXT J 
NEXT I 
CLS 
PEN 3 
PRINT “MUY BIEN ...." 


3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
: PEN 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 


PRINT 

PRINT TAB(10);"TERMINASTE LA PANTALLA" 

FOR I=2 TO 40 
LOCATE 1,10 
ENTNT-" 

NEXT I 

FOR I=1 TO 10 
LOCATE 1,10 
PRINT CHR$(253) 
FOR J=1 TO 100 
NEXT J 
LOCATE 1,10 
PRINT-" * 
FOR J=1 TO 100 
NEXT J 

NEXT 1 

LOCATE 1,10 

PRINT CHR$(253) 

FOR I=2 TO 40 


LOCATE 1,10:PRINT " ";CHR$(253) 
FOR J=1 TO 100:NEXT J 
LOCATE 1,10:PRINT " ";CHR$(255) 
FOR J=1 TO 100:NEXT J 

NEXT I 

PRINT 

PRINT " HAS CONSEGUIDO ...” 

PRINT 


PRINT PA*600; "PUNTOS DE BONUS" 
LET PU=PU+PA*600 
GOSUB 5490 
RETURN 
REM 
REM SS SO OSOS lOJO OO KK 
REM * DIBUJO DE LA PANTALLA *x 
REM ASS SO SOS SOS OE lO lOlOlOjojOjOK 
REM 
CLS 
RESTORE 6390 
FOR I=1 TO 25 
IF 1I=25 THEN LOCATE 1,25 
READ A$ 
FOR J=1 TO LEN(AS$) 
LET S(1I,J)=0 
LET B$=MID$(A$,J,1) 


IF B$="." OR B$="*x" THEN PEN 2:PRINT B$;:LET S(1,J)=(B$=" 


3:GOTO 4390 
IF B$>"9" THEN GOTO 4360 
PRINT CHR$(N(VAL(B$)));:GOTO 4390 
IF B$="A" THEN PRINT CHR$(155); 
IF B$="B" THEN PRINT CHR$(158); 
IF B$="C" THEN PRINT CHR$(140); 
NEXT J 
NEXT 1 
PEN 3 
LOCATE 4,2:PRINT USING "PUNTOS = Hiés$i388" ; PU 
LOCATE 27,2:PRINT USING "HI = Hi$R4%Ré"; HI 
LOCATE 2,24:PRINT "VIDAS = "; 
LOCATE 28,24:PRINT USING "PANTALLA = +$";PA; 
FOR I=1 TO NV-1 
LOCATE 9+1,24:PRINT CHR$(253) 
NEXT 1 
LET YO=16 
LET X0=20 
LET Y1=Y0 
LET X1=X0 
LET Z$="Z" 
LET S(13, 41)=2 


.")-(B$="x*") 
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4550 LET S(13,0)=2 

4560 LET BB=0 

4570 LET MM=0 

4580 LET M2=-1 

4590 LET-PT=287 

4600 LET X2=19 

4610 LET Y2=11 

4620 LET X3=X2 

4630 LET Y3=Y2 

4640 LET X4=21 

4650 LET Y4=11 

4660 LET X5=X4 

4670 LET Y5=Y4 

4680 LET M1>-1 

4690 LOCATE XO, YO 

4700 PRINT CHR$(253) 

4710 GOSUB 3610 

4720 RETURN 

4730 REM 

4740 REM aSMSS SOS IS lSlOjOlSlOlOlolOlOJOK 

4750 REM * TABLA DE RECORDS x* 

4760 REM AMOROSO la lalololololokok 

4770 REM 

4780 CLS 

4790 PEN 3 

4800 PRINT TAB(13);"TABLA DE RECORDS" 

4810 PRINT TAB( A A 

4820 PEN 1 

4830 PRINT TAB(6);CHR$(150);STRING$(28,154);CHR$(156) . 
4840 PRINT TAB(6);CHR$(149);SPC(28);CHR$(149) 

4850 PRINT TAB(6);CHR$(151);STRING$(28,154);CHR$(151) 
4860 FOR I=1 TO 9 

4870 PRINT TAB(6);CHR$(149);SPC(28);CHR$(149) 

4880 NEXT I 

4890 PRINT TAB(6);CHR$(147);STRING$(28,154);CHR$(153) 
4900 NP=0 

4910 FOR I=1 TO 10 

4920 IF PU>P(1) THEN LET NP=1 

4930 NEXT 1 

4940 IF NP=1 THEN LET P(10)=PU:LET N$(10)=CHR$(255) 
4950 FOR I=1 TO 10 

4960 FOR J=1 TO I 

4970 IF P(1)>P(J) THEN LET A$=N$(1):LET A=P(1):LET N$(1)=N$(J):LET P(1)=P( 
J):LET N$(J)=A$:LET P(J)=A 

4980 NEXT J 

4990 NEXT I 

5000 IF NP=0 THEN GOTO 5050 

5010 FOR I=1 TO 10 

5020 —IF N$(1)=CHR$(255) THEN LET N$(1I)=STRING$(15,"-"):LET NP=1 
5030 NEXT 1 

5040 PEN 2 

5050 LOCATE 7,4:PRINT N$(1);TAB(23);"... "¡USING "*H$4888";P(1) 
5060 FOR I=2 TO 10 

5070 LOCATE 7,4+1 


5080 PRINT N$(1);TAB(23);"... "¡USING "+4$48$8";P(I) 
5090 NEXT 1 

5100 IF NP=0 THEN GOTO 5290 

5110 PEN 3 

5120 LOCATE 15,16:PRINT "FELICIDADES. " 

5130 PRINT 

5140 PRINT TAB(3);"TU PUNTUACION ESTA ENTRE LAS MEJORES” 
5150 PRINT 


5160 PRINT TAB(12);"ESCRIBE TU NOMBRE. " 

5170 LET N$(NP)="":LET X=7:LET LO=0:LET D$="" 
5180 IF NP=1 THEN LET Y=4 ELSE LET Y=4+NP 
5190 LOCATE X, Y 

5200 PRINT "_";CHR$(29); 


5210 LET A$=INKEYS: IF A$="" THEN GOTO 5210 

5220 IF A$=CHR$(8) AND LO>O THEN LET X=X-1:LET LO=LO-1:LET D$=LEFT$(D$, LO): PRINT 
CHR$(29);"_-";CHR$(29);CHR$(29); 

5230 IF A$=" " THEN GOTO 5260 

5240 IF A$=CHR$(13) THEN GOTO 5270 

5250 IF A$<"0" OR A$>"z" THEN GOTO 5210 

5260 PRINT A$;"_";CHR$(29);:LET LO=LO+1:LET D$=D$+A$: IF LO<>15 THEN GOTO 5210 

5270 PRINT SPC(16-LO) 

5280 LET N$(NP)=D$ 

5290 LET HI=P(1) 

5300 LOCATE 1,16:PRINT SPACE$(240) 

5310 LET PU=0:LET NV=3 

5320 IF NP<>0 THEN LET NP=0:GOSUB 5590:GOTO 4730 
5330 RETURN 

5340 ' REM 

5350 REM ddSSSSOOIOlOjOlOlOlOloloOKaK 

5360 REM * INSTRUCCIONES * 

5370 REM ok kk ak 

5380 REM 

5390 PEN 3 

5400 LOCATE 4,17 

5410 PRINT “COMETE TODOS LOS PUNTOS QUE PUEDAS" 


5420 PRINT 

5430 PRINT " ale 

5440 PRINT " Q USA ESTAS TECLAS" 
5450 PRINT "<O  P >" 

5460 PRINT " A PARA MOVER EL QUESITO. * 
5470 PRINT " y 

5480 RETURN 

5490 REM 


5500 REM aaoSlSlASIS ISSO IOJJVJOK 
5510 REM * PULSA UNA TECLA * 
5520 REM sala laMIOlafOlOlojoJOK 
5530 REM 

5540 LOCATE 13,25 

5550 PRINT "PULSA UNA TECLA” 
5560 LET A$=INKEY$ 

5570 IF A$="" THEN GOTO 5560 
5580 RETURN 

5590 REM 

56800 REM asada laoOlOlofOlOlololOK 
5610 REM * PRESENTACION x* 
5620 REM aaa laOlOlalolOlOlaJÓK 
5630 REM 

5840 CLS 

5650 PEN 3 

5660 RESTORE 6690 

5670 FOR I=2 TO 16 

5680 READ A$ 

5690 FOR J=1 TO LEN(A$) 


5700 IF MID$(A$,J,1)="0" THEN GOTO 5730 

5710 LOCATE 7+J,1+1) 

5720 PRINT CHR$(253) 

5730 NEXT J 

5740 NEXT I 

5750 LOCATE 6,1:PRINT "(c) Ed. Siglo Cultural, 1987" 
5760 PEN 2 


5770 FOR I=1 TO 14 

5780 LOCATE 1,20:PRINT "." 

5790- FOR J=1 TO 100:NEXT J 

5800 NEXT I 

5810 PEN 3 

5820 LOCATE 17,20:PRINT "= 10 PUNTOS" 
5830 PEN 2 

5840 FOR I=1 TO 13 

5850 LOCATE 1,22:PRINT " *x" 

5860 FOR J=1 TO 100:NEXT J 
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5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440. 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 


NEXT I 
PEN 3 
LOCATE 17,22:PRINT "= 50 PUNTOS" 
FOR J=1 TO 1000:NEXT J 
FOR I=1 TO 15 
LOCATE 1,20:PRINT CHR$(253) 
FOR J=1 TO 100:NEXT J 
LOCATE 1,20:PRINT CHR$(255) 
FOR J=1 TO 100:NEXT J 
LOCATE 1,20:PRINT " ” 
NEXT 1 
LOCATE 15,20:PRINT CHR$(253) 
LOCATE 17,20:PRINT "= TU MISMO " 
FOR I=1 TO 15 
LOCATE 1,22:PRINT CHR$(250) 
FOR J=1 TO 100:NEXT J 
LOCATE 1,22:PRINT CHR$(249) 
FOR J=1 TO 100:NEXT J 
LOCATE 1,22:PRINT "  ” 
NEXT I 
LOCATE 15,22:PRINT CHR$(250) 
LOCATE 17,22:PRINT "= TU ENEMIGO" 
FOR I=1 TO 1000 
NEXT 1 
RETURN 
REM 
REM ASS S SOS lSlO SOS O lSlSlOSlSSlOlOjSlOlOKOK 
REM * DATAS CON LOS CARACTERES x 
REM add lSSS SIS lS OOOO lOlOlSlOlSjSlOlOlolOJOK 
REM 


DATA 32,150,156, 147,153,154,149,159,151,157 


REM 
TS 
REM * DATAS CON LOS RECORDS * 
EEES 
REM 

DATA "ANTONIO", 34990 

DATA "EL COCO",31720 

DATA "EL AUTOR", 24030 

DATA "INDIANA”,23300 

DATA "JOSELITO",11210 

DATA "SUSYN", 11120 

DATA “RAMIRO”, 8430 

DATA "DONALD", 7540 

DATA "SHE", 3400 

DATA "HE”,3210 

REM 
TS 
REM * DATAS CON LAS DIRECCIONES * 
TS 
REM 


DATA -1,-1,1,1,0,0,0,0,0,0,0,0, -1,-1,1,1 


REM 


REM so SS ISSO SlO OSOS lOJSSOIOIOJOK 
REM * DATAS CON LA DEFINICION DE LA PANTALLA *x 
INS 


REM 


DATA "0015555555555555552000000155555555555200" 
DATA "0060000000000000006000000800000000000600" 
DATA "15A5555555555555B5A5555B5A55555555555A52" 


DA ie 35555554......... 


DATA "6.15552.1555552.......... 1555552: 15552.6" 
DATA "6.60006. 600000352. 1552. 154000006.60006.6" 
DATA "6.35554, 355555554,6006. 355555554.35554.6" 


E A 6006 


AAA AA YA 


E 6" 


DATA "8555552. 155552. 1554003552. 155552. 1555559" 
DATA "6155526. 601554. 3555555554, 355206.6155526" 


"6355546. 606 .6355546" 
DATA "3555554, 354. 152. 1CCCCCC2. 152.354. 3555554" 
DATA " 606. 80000006. 606 > 
DATA " 152.606. 60000006.606. 152. 
DATA "6....34.354.354.35555554. 354.354. 
DATA "6. 
DATA "6. .155555555555555555555552. 15546 
DATA "6. .600015555555555555520006. 
DATA. "8. 205 ci ER - 
DATA "6. 15B555555B52 : 0 
DATA "6.34.15555552. 354 354. 15555552. 34. 
DATA "6x*x...35555206 60155554...x*x6" 
DATA "8555555555A5755555A55A5555BA5A5555555559" 
DATA "6000000000006000000000000080000000000006" 
DATA "3555555555554000000000000035555555555554" 


REM sSSS SOS ISO SIS lO SOS SO lSSlO lO lolSOjolOlO KK 


REM * DATAS CON LA PALABRA PAC-MAN x* 
ES 


REM 
DATA “1111110000110000011110" 
DATA "0110011001111000110011" 
DATA “"0110011011001101100000" 
DATA "0111100011001101100000" 
DATA "0110000011111101100000" 
DATA “0110000011001100110011" 
DATA “1111000011001100011110" 
DATA "" 
DATA "11000110000110001100011" 
DATA "11101110001111001110011" 
DATA "11111110011001101111011"” 
“11111110011001101101111" 
"11010110011111101100111" 
"11000110011001101100011" 
"11000110011001101100011" 


'D Programa: Tipo parabólico 


En los programas educativos, y, dentro 
de éstos, en los programas de física, uno 
de los temas más apasionantes y diverti- 
dos es el de! lanzamiento de proyectiles 
o tiro oblicuo. 

Con este programa, realizado para el 
SPECTRUM, podremos resolver problemas 
de tiro oblicuo en cualquiera de los pla- 
netas que existen en nuestro sistema so- 
lar. 


Resumiendo, el programa nos permite 
hacer lo siguiente: 


— Plantear un problema real y resol- 
verlo numéricamente. 

— Cambiar el planeta donde se reali- 
za el lanzamiento de los proyectiles. 

— Ver la representación gráfica de di- 
cho movimiento. 

— Ver en qué unidades medimos las 
diferentes características de cada lanza- 
miento. 

— Ver las ecuaciones que utilizamos. 
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PROGRAMA: TIRO PARABOLICO 


6 


REM sSISIS ISSO lO IOISIOIOJOJOK 


REM * FISICA: TIRO OBLICUO * 
REM SSA SISSI lO IO IOISIOIOIOJOR 
REM *xJOSE M. GARCIA LUENGOX* 
REM aaa aaa IOJOIOIOIOIOIOJOK 


LET X$="(VO”2*SIN (2*ANG))/G": LET Y$="VO"2x*(SIN ANG)”2/(2*G)": 


LET G=9.8 


7 
8 


CLS : LET NOP-=6: LET EL=1 


PRINT AT 0,0; INVERSE 1;"* *x TIRO OBLICUOX xx" 


9 PRINT 


10 
20 
30 
40 
50 
60 
70 
80 


PRINT” BRIGHT 1;"MENU PRINCIPAL: " 

PRINT : PRINT FLASH 1;"1"; 

PRINT ". REPRESENTACION. " 

PRINT "2. PROBLEMAS. ” 

PRINT "3. GRAVEDADES DEL SISTEMA SOLAR. " 
PRINT "4. UNIDADES. " 

PRINT "5. ECUACIONES GENERALES. * 

PRINT "8. GOTO OPCION. * 


UTA Co 1) 


90_GO SUB 100: IF VAL K$-NOP_THEN GO TO 1000*EL-1 


95 
100 
110 
120 
130 
140 
150 
160 


GO TO 90 

LET K3$- INKEYS$ 

IF K$="" OR K$>STR$ NOP OR K$<STR$ 1 THEN GO TO 100 
BEEP .01,50 

IF VAL K$-=NOP THEN RETURN 

PRINT AT EL+3,0; FLASH O;EL 

LET EL=VAL K$ 

PRINT AT EL+3,0; FLASH 1;EL 


170_RETURN 


993 

999 
1000 
1001 
1002 
1010 
1020 
EEP 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


REM 
REM MMSSIS SSI lO IOIOIOIOIOK 
REM * REPRESENTACION * 
REM sSS OSOS ISS ISSO JOJOJEJOK 
REM 
CLS 


IF NAD=1 THEN PRINT AT 10,0; FLASH 1;"NO HAY DATOS EN MEMORIA 
.1,0: PAUSE O: GO TO 6 


PLOT 7,32 

DRAW 0, 143 

DRAW -2,-7 

DRAW 4,0 

DRAW -2,7 

PRINT AT 0,2; "y" 

PLOT 0, 47 

DRAW 254,0 

DRAW -7, 2 

DRAW O, -4 

DRAW 7,2 

PRINT AT 14,31;"x" 
PLOT 7,47 

DRAW 216,0, -PI/2 
PLOT 112,48 

DRAW O, 48 

PRINT AT 9,11;"H(max)" 
PLOT 7,47 

DRAW 40, 40 

DRAW -7,-3 

DRAW 4, -4 

DRAW 3,7 

PRINT AT 10,4;"Vo" 
PRINT AT 18,0;"X=T=0" 
PLOT 19,47 

DRAW -4,6,PI/4 

PRINT AT 15,3;"0" 
PRINT AT 16,0; OVER 1;"o” 


LET NAD=1: 


1310 
1320 
1330 
1340 
.1350 
1360 
1370 
1380 
1390 
1400 
1420 
1430 
1440 
1998 
1999 
2000 
2001 
2002 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2500 
2510 
2520 
2530 
2540 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2998 
2999 
3000 
3001 


PLOT 223,50 
DRAW O, -10 

PRINT AT 17,27;"X" 
PRINT AT 18,27;"T" 
PRINT AT 0,5;"x= ";X 
PRINT AT 1,5; 

PRINT AT 2,5 

PRINT AT 3,5;"0= ";ANG 

PRINT AT 4,5; 

PRINT AT 5,5;"H(max)= ";Y 

PRINT $1; FLASH 1;"PULSA UNA TECLA ." 

PAUSE O 

GO TO 7 

REM 

REM AMOOSSdOlOlOlolo kk 

REM * PROBLEMAS * 

REM AMSSSSSISlOlOlolO lok 

REM 

CLS : PRINT 

PRINT  INVERSE 1;"** ELIGE LA PRIMERA INCOGNITA *xx*" 

GO SUB 2800 

LET NOP=6: LET EL=1 

GO SUB 100: IF VAL K$=NOP THEN GO TO 2070 

GO TO 2050 

LET El=EL 

CLS : PRINT 

PRINT INVERSE 1;"x* *ELIGE LA SEGUNDA INCOGNITAX x*" 

GO SUB 2800 

PRINT AT 20,0; BRIGHT 1;"YA HAS ELEGIDO LA NUMERO ";El1 

LET NOP=6: LET EL=1 

GO SUB 100: IF VAL K$=NOP AND EL<>E1 THEN GO TO 2150 

GO TO 2130 

LET E2=EL 

CLS 

IF El=1 THEN LET FO=(1 AND E2=2)+(2 AND E2=3)+(3 AND E2=4)+(4 AND E2=5) 
IF El=2 THEN LET FO=?1 AND E2=1)+(5 AND E2=3)+(6 AND E2=4)+(7 AND E2=5) 
IF El=3 THEN LET FO=(2 AND E2=1)+(5 AND E2=2)+(8 AND E2=4)+(9 AND E2=5) 
IF El-4 THEN LET FO=(3 AND E2=1)+(6 AND _E2=-2)+(8 AND E2=3)+(10 AND E2=5) 
IF El=5 THEN LET FO=(4 AND E2=1)+(7 AND E2=2)+(9 AND E2=3)+(10 AND E2=4) 
LET NAD=0: CLS : GO SUB 5100+(FO-1)x100 

CLS 

PRINT  INVERSE 1;"* *RESULTADOSxx" 

PRINT : PRINT 

PRINT "x= ";X: PRINT 

PRINT "y= ";Y: PRINT 

PRINT "Vo= ";VO: PRINT 

PRINT "t= ";T: PRINT 

PRINT "O= ";ANG 

GO SUB 1420 

DATA "CUAL ES EL MAXIMO ALCANCE *x” ?" , 

DATA "DIME LA ALTURA MAXIMA *y” 2?" 

DATA "DIME LA VELOCIDAD INICIAL *Vo' ?" 

DATA "DAME EL TIEMPO *t* ?" 

DATA "CUAL ES EL ANGULO DE TIRO *e* 2?" 

PRINT : PRINT 

PRINT FLASH 1;"1"; 


PRINT ". INCOGNITA *x* ." 
PRINT "2. INCOGNITA ”y? 
PRINT "3. INCOGNITA *Vo” 
PRINT "4. INCOGNITA *t?” 
PRINT "5. INCOGNITA e” 
PRINT "6. ELEGIR INCOGNITA. ” 
RETURN 

REM 


REM ASSSSSOlSlSlOlOjOIOJOK 


REM * GRAVEDADES * 
REM dsSSalOlSS OOO OO jOKoK 
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3002 
3005 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3200 
3210 
32220 
3250 
3260 
3270 
3280 
3290 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3998 
3999 
4000 
4001 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4998 
4999 
5000 
5001 
5002 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 


REM 

CLS 

PRINT AT 0,0; INVERSE 1;"x* * GRAVEDADES DEL S. SOLAR. * x*" 
PRINT 

PRINT BRIGHT 1;"ELIGE EL PLANETA: " 

PRINT 


LET NOP=9: LET EL=1 
PRINT FLASH 1;"1"”; 
PRINT ". MERCURIO." 
PRINT "2. VENUS." 
PRINT "3. LA TIERRA." 
PRINT "4. MARTE." 
PRINT "5. JUPITER." 
PRINT,"6. SATURNO. " 
PRINT "7. URANO. " 


PRINT "8. NEPTUNO." 

PRINT "9. ELEGIR PLANETA. ” 

GO SUB 100: IF VAL K$=NOP THEN GO TO 3200 + 

GO TO 3160 

CLS 

PRINT "AHORA TU SISTEMA DE REFERENCIA SE ENCUENTRA EN "; 


RESTADT 20NA.TrT 


PRINT FLASH 1;P$ 
PRINT 

PRINT "EN ESTE PLANETA LA ACELERACION DE LA GRAVEDAD ES DE” 
PRINT "g=";G;" M/S*2" 
GO TO 1420 ) 
DATA "MERCURIO", 4 
DATA "VENUS”,8.8 

DATA "LA TIERRA",9.8 
DATA "MARTE", 4 

DATA "JUPITER",25.4 
DATA "SATURNO", 10.8 
DATA "URANO”,8.8 

DATA "NEPTUNO",10.8 
REM 

REM ASSSSS OOO ojook 

REM * UNIDADES * 

REM ASSSOO OOOO look 


CLS 

PRINT INVERSE 1;"* *UNIDADESxx" 
PRINT 

PRINT "-*x” e *y” en metros." 

PRINT 

PRINT "-Velocidad inicial *Vo* en m/s.” 
PRINT 

PRINT "--Tiempo *t”* en segundos. " 

PRINT 

PRINT "-Angulo de tiro *e” en radianes." 
PRINT 

PRINT "-Gravedad *'g* en m/s”2." 

GO TO 1420 

REM 

REM SSA SOS ld OSOS lOjSO ISSO JOK 


REM *ECUACIONES GENERALES* 

IAN EEES 

REM 

CLS 

PRINT  INVERSE 1;"**ECUACIONESXxx" 
PRINT : PRINT 

PRINT "x=Voxtx*C0S 0" 

PRINT : PRINT 

PRINT “y=VoxtxSIN € - (8*t"2)/2": PRINT : PRINT 
PRINT "Alcance=(Vo"2*SIN (2x0))/8": PRINT : PRINT 
PRINT "Alt. (max. )=(Vo"2*(SIN 0)72)/2*g" 

GO TO 1420 

RESTORE 2520 


5110 READ A$,B5$,C$ 

5120 PRINT A$: INPUT VO 

"5130 CLS : PRINT B$: INPUT T 
5140 CLS : PRINT C$: INPUT ANG 
5150 LET X=VAL X$ 

5160 LET Y=VAL Y$ 

5170 RETURN 

5210 READ A$,B$,B$,C$ 

5220 PRINT A$: INPUT Y 

5230 CLS : PRINT B$: INPUT T 
5240 CLS : PRINT C$: INPUT ANG 
5250 LET VO=SQR ((2*GXY)/((SIN ANG)”2)) 
5260 LET X=VAL X$ 

5270 RETURN 

5300 RESTORE 2510 

5310 READ A$,B$,C$,C$ 

5320 PRINT A$: INPUT Y 

5330 CLS : PRINT B$: INPUT VO 
5340 CLS : PRINT C$: INPUT ANG 
5350 LET T=VO*SIN ANG+SQR (VO”"2*SIN ANG”2-2*GXY)/G 
5360 LET X=VAL X$ 

5370 RETURN 

5400 RESTORE 2510 

5410 READ A$,B5$,C$ 

5420 PRINT A$: INPUT Y 

5430 CLS : PRINT B$: INPUT VO 
5440 CLS : PRINT C$: INPUT T 
5450 LET ANG=ASN (SQR (2*G*Y/VO”2)) 
5460 LET X=VAL X$ 

5470 RETURN 

5500 RESTORE 2500 

5510 READ A$,B5$,B$,B$,C$ 

5520 PRINT A$: INPUT X 

5530 CLS : PRINT B$: INPUT T 
5540 CLS : PRINT C$: INPUT ANG 
5550 LET VO=SQR (G*X/SIN (2*ANG)) 
5560 LET Y=VAL Y$ 

5570 RETURN 

5600 RESTORE 2500 

5610 READ A$,B$,B$,C$,C$ 

5620 PRINT A$: INPUT X 

5630 CLS : PRINT B$: INPUT VO 
5640 CLS : PRINT C$: INPUT ANG 
5650 LET T=X/(VO*COS ANG) 

5660 LET Y=VAL Y$ 

5670 RETURN 

5700 RESTORE 2500 

5710 READ A$,B$,B$,C$ 

5720 PRINT A$: INPUT X 

5730 CLS : PRINT B$: INPUT VO 
5740 CLS : PRINT C$: INPUT T 
5750 LET ANG=(ASN (G*X/VO”2))/2 
5760 LET Y=VAL Y$ 

5770 RETURN 

5800 RESTORE 2500 

5810 READ A$,B$,C$,C$,C5$ 

5820 PRINT A$: INPUT X 

5830 CLS : PRINT B$: INPUT Y 
5840 CLS : PRINT C$: INPUT ANG 
DODU LEI VUZDQH (UXA/(DIN (ZFANG))) 
5860 LET T=X/(VO*COS ANG) 

5870 RETURN 

5900 RESTORE 2500 

5910 READ A$,B$,C$,C$ 

5920 PRINT A$: INPUT X 

5930 CLS : PRINT B$: INPUT Y 
5940 CLS : PRINT C$: INPUT T 


2 PROGRAMAS 


LET ANG=ATN ((2*Y+G*T"2)/(2*X)) 
5960 LET VO=X/(Tx*COS ANG) 

5970 RETURN 

6000 RESTORE 2500 

6010 READ A$,B$, C$ 

6020 PRINT A$: INPUT X 

6030 CLS : PRINT B$: INPUT Y 

6040 CLS : PRINT C$: INPUT VO 

6070 LET ANG=(ASN (G*X/VO”2))/2 
6080 LET T=X/(VO*COS ANG) 

RETURN 


Para utilizar los menús de opciones que 
nos aparecen en el programa, sólo tene- 
mos que pulsar el número que aparece 
junto a la opción que queremos elegir. 
Una vez hecho esto, dicho número co- 
menzará a parpadear. En ese momento, 
si nos hemos equivocado, podemos ele- 


gir otra opción pulsando otro número dis- 
tinto. Cuando estemos seguros de que el 
número que hemos pulsado corresponde 
ala opción que queremos, debemos pul- 
sar el número que se encuentra junto al 
mensaje 'GOTO OPCION. En ese instante, 
y no antes, dicha opción se ejecutará. 


AMOS a abordar una 
actividad que está 
adquiriendo enorme 
auge en.los últimos 
años: la implantación 
de sistemas automalti- 
zados de produc- 
ción; incluso se perfi- 
la como una especialidad dentro del 
análisis: la de estudio, diseño e implan- 
tación de estos sistemas automatizados 
de producción. 

En algunos aspectos, por otro lado, 
desborda el campo que se ha conside- 
rado típico de los analistas informáticos 
y de organización: en efecto, además de 
la informática, de la sistémica y otras 
ciencias de la organización, el “analista 
de sistemas automatizados de produc- 
ción” debe abordar, en ocasiones, acti- 
vidades propias de la mecánica, la au- 
tomática y la electrónica. 

El conjunto de las técnicas que ha de 
conocer un analista especializado en sis- 
temas industriales se agrupan, usualmen- 
te, bajo las siglas XAO, y son la “concep- 
ción asistida por ordenador”-CAO, el 
“gobierno de máquinas herramientas por 
ordenador”-CMO, la “gestión de la pro- 
ducción asistida por ordenador”-GPAO, 
la “fabricación asistida por ordenador”- 
FAO, el “mantenimiento asistido por or- 
denador”-MAO, etc. 

Aunque ya en los años sesenta comen- 
zaron a informatizarse las operaciones 
de gestión de la producción (básica- 
mente entonces en cuanto a sus aspec- 
tos administrativos y organizacionales), a 
partir de 1975, con el desarrollo de la mi- 
croelectrónica y (ya en los ochenta) con 
la microinformática, el auge de estas 


TECNICAS DE ANALISIS 


INFORMATIZACION DE LA PRODUCCION INDUSTRIAL 


técnicas ha sido espectacular, de tal 
modo que actualmente ya está acepta- 
do el galicismo “prodúctica” para desig- 
nar a esta “ciencia” específica. 


Funciones involucradas 
en la producción industrial 


Las principales actividades engloba- 
das en un proceso genérico de produc- 
ción se pueden reunir en dos grupos: ac- 
tividades operacionales (a las que se 
suele aludir, globalmente, bajo el nom- 
bre de “sistema físico de producción”): 
concepción, aprovisionamiento y fabri- 
cación; y funciones de “pilotaje de la 
producción” o de “gestión de la produc- 
ción”, que permiten el adecuado de- 
sarrollo de las anteriores: gobierno, ex- 
plotación, control y decisión. Veamos 
brevemente el contenido de estas ta- 
reas: 


— En el apartado concepción hay 
que incluir, por lo que a la automatiza- 
ción se refiere, las tareas de investiga- 
ción o estudio (nuevos productos, nuevos 
materiales, nuevas técnicas de fabrica- 
ción...), las de desarrollo (estudio de pro- 
cedimientos, preparación de prototipos 
O maquetas, etc.), las de “industrializa- 
ción” o preparación de procedimientos- 
utillaje-montajes, etc. o 

— Por aprovisionamiento entendemos 
la adquisición de los materiales (elec- 
ción de los proveedores, gestión de pe- 
didos, gestión de la posible subcontrata- 
ción de partes...), transporte (fechas, 
puntos de aprovisionamiento y de alma- 
cenajes transitorios, etc.) y almacena- 
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miento Estockage” propiamente dicho y 
provisión a los puntos en que es necesa- 
rio cada elemento). 


— La fabricación comporta, en cuan- 
to actividad automatizable, las siguien- 
tes subtareas: “stockage” de elementos 
y partes como componentes o subcon- 
juntos, a lo largo de todo el proceso pro- 
ductivo; preparación de los elementos 
necesarios para la fabricación; movi- 
miento de los elementos; transformación 
y ensamblaje. 


— El gobierno de la producción inclu- 
ye todas las tareas de planificación y 
ejecución de las órdenes de fabricación, 
compra, movimiento de materiales, etc. 


— La explotación de los medios de 
producción supone tanto la conducción 
de los procesos como el mantenimiento 
de los medios de producción e, incluso, 
la formación (en cuanto “mantenimien- 
to” de la “capacidad de producción” de 
los medios humanos). 


— El control se realiza tanto desde el 
punto de vista técnico (control de cali- 
dad) como desde el económico y orga- 
nizativo. 


— Las tareas de decisión son las más 
delicadas y constituyen el núcleo del sis- 
tema automático de gestión de la pro- 
ducción. 


¡O Tipología de los sistemas 
de producción 


El tipo de sistema utilizado en cada 
producción depende de numerosas ra- 
zones: de las cantidades fabricadas, de 
la complejidad del producto, del méto- 
do de comercialización, de los procedi- 
mientos de concepción, etc. Desde el 
punto de vista de la automatización, se 
suelen clasificar en los siguientes tipos: 
en función del sistema físico de produc- 
ción, como de proceso continuo o dis- 
continuo Ly, en este segundo caso, de 
producción unitaria, repetitiva en series 
o repetitivo por lotes) y en función de la 
naturaleza del sistema de pilotaje como 
de fabricación por stocks, de ensambla- 
je bajo pedido, de fabricación bajo pe- 
dido, etc. 


Objetivos de la producción 


Las tareas básicas de cualquier siste- 
ma de supervisión de la producción 
(que, por tanto, son el objetivo funda- 
mental que se ha de optimizar con un sis- 
tema automatizado) son: 


— Garantizar el suministro de las mer- 
cancías o productos comprometidos por 
el departamento comercial de la com- 
pañía con los clientes. 

— Reducir los tiempos de disponibili- 
dad de nuevos productos. 

— Ayudar a la cumplimentación de 
los pedidos en las mejores condiciones 
económicas posibles para aumentar la 
rentabilidad de la empresa. 

— Asegurar el cumplimiento riguroso 
de los procedimientos y la coherencia 
de las informaciones de que se dispone 
sobre el proceso productivo. 


La tan conocida regla de los seis ceros 
asigna como objetivo a un sistema de 
producción el conseguir “0 defectos, 
O stock, O retrasos, O papeles, O averías, 
0 accidentes”. 

Perfilando más esta idea, podemos de- 
cir que los objetivos a obtener con un sis- 
tema de este tipo son: 


Objetivos técnicos 


— Disminuir la duración del ciclo de 
producción (0 retrasos). 

— Mejorar la calidad de los produc- 
tos, tanto por razones comerciales (para 
mantener o aumentar la presencia de la 
compañía en el mercado) como por ra- 
zones de tipo técnico o financiero. 

— Mejorar la disponibilidad del siste- 
ma de producción: fiabilidad de los equi- 
pos (0 averías), absentismo, política de 
mantenimiento, etc. 

— Mejorar la flexibilidad, para dismi- 
nuir los retrasos a soportar en caso de 
modificación de los planes de fabrica- 
ción, la posibilidad de desarrollar nuevos 
productos, etc. 


Objetivos económicos 


— Disminuir los costes de producción. 

— Disminuir el valor de los stocks. 

— Asegurar una capacidad óptima 
de producción. 


Música 
por ordenador 


A generación de mú- 
sica por ordenador 
no sólo es útil para los 
músicos profesiona- 
les o aficionados, 
sino que cualquier 
programador puede 
utilizarla para animar 
sus programas y mejorar la apariencia 
externa de éstos, introduciendo peque- 
ñas frases musicales en momentos clave. 

Supongamos que se está programando 
un juego de aventura. Resulta agradable 
hacer que el ordenador personal (si dis- 
pone de un pequeño altavoz) emita en 
determinadas circunstancias melodías 
cortas apropiadas a lo que está suce- 
diendo durante el juego. Por ejemplo, si 
el jugador ha logrado vencer a un ene- 
migo, podrían generarse algunas notas 
del Himno a la alegría de la Novena sin- 
fonía, de Beethoven. Si, por el contrario, 
el enemigo ha “matado” al jugador, no 
es mala idea hacer sonar algunas notas 
de la Marcha fúnebre, de Chopin. 

La forma exacta de generar música en 
el lenguaje BASIC depende del ordena- 
dor personal de que se disponga, y aun 
en el mismo ordenador pueden existir va- 
rias maneras diferentes. La versión que 
vamos a ver aquí es una de las formas de 
conseguirlo en el intérprete de BASIC de 
Microsoft, que funciona, entre otros, en el 
ordenador personal de IBM y compalti- 
bles. 

La instrucción básica que permite ge- 
nerar música en BASIC es la siguiente: 


PLAY “cadena de caracteres”. 


La cadena de caracteres que sirve de 
argumento a la operación PLAY contiene 
una serie de letras, cifras y puntos que se 
interpretan de la siguiente manera: 
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— Las notas musicales aparecen en 
notación inglesa: 


A LA E MI 

B Si F FA 

CG 00 G SOL 

D RE P Pausa o silencio 


El nombre de cada nota puede ir segui- 
do (o no) por el signo + o + (sostenido) 
o el signo — (bemol), por un número de 
1 a 64, que especifica su longitud, y por 
un punto. Entre las longitudes posibles, 
destacan las siguientes: 


16 Semicorchea 
32 Fusa 
64 Semifusa 


1 Redonda 
2 Blanca 

4 Negra 

8 Corchea 


El punto, si existe, multiplica por 1,5 la 
duración de la nota anterior. 


— Longitud por defecto: la letra L se- 
guida por un numero de duración, que se 
aplicara a todas las notas que no lo ten- 
gan. 


— Octava: la letra O seguida del nú- 
mero de octava escogido. Se puede ele- 
gir entre 7 octavas diferentes, represen- 
tadas por los números de 0 a 6. Una oc- 
tava va siempre desde DO (C) hasta 
SI (B). La octava O0 es la más grave, 
mientras que O6 es la más aguda. 

— Velocidad (tempo): la letra T segui- 
da por el número de notas negras por mi- 
nuto (un número entre 32 y 255). 

— Modo: la letra M seguida por una L 
(para música ligada), una N (para músi- 
ca normal, con las notas consecutivas li- 
geramente separadas), o una S (para 
música “staccato”, con las notas muy se- 
paradas entre sí). 


Veamos algunos ejemplos de música 
escrita en BASIC: 


1. El principio del primer tiempo de la 
Sexta sinfonía, de Beethoven. 


2 TECNICAS DE PROGRAMACIÓN 


10 PLAY "TOOOSLBEFAGL 16FELBDO2GO3CDEF 16E16D4." 


2. El principio del último tiempo de la 
Sexta sinfonía, de Beethoven. 


10 PLAY "TOOD3L8CA4. F404CO3A4.F4CF4ADACAOZAB-2. " 
20 PLAY "AB-4.6404C03A4.F4AG4DE4CCF4. " 


3. El principio del Himno a la alegría, 
del último tiempo de la Novena sinfonía, 
de Beethoven. 


10 PLAY "T9OD3LBEEFGGFEDCCDEE.D16D4" 
20 PLAY "EEFGGFEDCCDED.C16C4” 


4. El principio de la Marcha fúnebre, 
de Chopin. 


10 PLAY "TSOO2L8A4A.A16A403C.02B16B.A16A.A16A2" 


Se comprende la facilidad con que 
pueden construirse programas que eje- 
cuten piezas musicales mucho más com- 
plicadas. 


Música en APL 


Como en los capítulos anteriores, nos 
referiremos al intérprete de APL/PC de 
IBM. Otros intérpretes de APL pueden rea- 
lizar la música de manera diferente, o in- 
cluso no estar dotados de esta posibili- 
dad. 

Este intérprete de APL se distribuye con 
una función (PLAY) que actúa de forma 
muy semejante a la instrucción PLAY de 
BASIC, aunque con algunas diferencias. 


En primer lugar, la cadena de caracteres 

a la que se aplica la función PLAY debe 

estar encerrada entre comillas simples, 

como siempre ocurre en APL. En segundo 

lugar, veamos cómo se interpretan aquí ' 
las letras y cifras contenidas en dicha ca- 

dena de caracteres: 


— Las notas musicales aparecen en 
notación inglesa: 


A LA E MI 

B SI F FA 

Cc DO G SOL 

D RE P Pausa o silencio 


El nombre de cada nota puede ir segui- 
do (o no) por el signo + o £ (sostenido) 
o el signo — (bemol), por un número de 
0 a 6, que especifica su longitud, y por 
un punto. Las longitudes posibles son las 
siguientes: 


O Redonda 4 Semicorchea 


1 Blanca 5 Fusa 
2 Negra 6 Semifusa 
3 Corchea 


El punto, si existe, multiplica por 1,5 la 
duración de la nota anterior. 


— Longitud por defecto: la letra L se- 
guida por un numero de duración, que se 
aplicará a todas las notas que no lo ten- 
gan. 


— Octava: la letra O seguida del nú- 
mero de octava escogido. Se puede ele- 
gir entre 7 octavas diferentes, represen- 
tadas por los números de 0 a 6. Una oc- 
tava va siempre desde DO (C) hasta 
SI (B). La octava O0 es la más grave, 
mientras que O6 es la más aguda. Si el nú- 
mero de octava va seguido por un signo 
+, como en Ol+, significa que se suben 
esas octavas respecto a la octava ante- 
riormente definida. Si va seguido por un 
signo —, como en OI—, significa que pa- 
samos a una octava más baja (más gra- 
ve) respecto a la anterior. 

— Velocidad (tempo): la letra T segui- 
da por un número comprendido entre 0 
y 6, de acuerdo con la siguiente tabla: 


O Largo (54 notas negras por minu- 
to) 

1 Largetto (66 notas por minuto) 

2 Adagio (78 notas por minuto) 

3 Andante (96 notas por minuto) 

4 Mode- 


rato (120 notas por minuto) 


5 Allegro (156 notas por minuto) 
6 Presto (198 notas por minuto) 


— Modo: la letra M seguida por un 2 
(para música ligada), un 1 (para música 
normal, con las notas consecutivas lige- 
ramente separadas), o un 0 (para muúsi- 
ca “staccato”, con las notas muy sepa- 
radas entre sí). 


Veamos cómo se escriben en APL los 
ejemplos dados anteriormente en BASIC: 


1. El principio del primer tiempo de la 
Sexta sinfonía, de Beethoven. 


PLAY *T303L3EFAGLAFEL3DO2603CDEF4ME4D2.*' 


2. El principio del último tiempo de la 
Sexta sinfonía, de Beethoven. 


PLAY *T303L3CA2.F204C0342.F2CF24A04C203AB-1.' 
PLAY 'AB-2.G204C03A2.F2AG2DE2CCF2.' 


3. El principio del Himno a la alegría, 
del último tiempo de la Novena sinfonía, 
de Beethoven. 


PLAY 'T303L3EEFGGFEDCCDEE.D4D2* 
PLAY 'EEFGGFEDCCDED.C4C2' 


4. El principio de la Marcha fúnebre, 
de Chopin. 


PLAY *TOO2L3A2A.A4A203C.02B4B.AMA.AMA1' 


Obsérvese que la conversión de un len- 
guaje al otro es trivial. 

Naturalmente, varias llamadas a la fun- 
ción PLAY pueden combinarse para for- 
mar un programa o función de APL inde- 
pendiente, que puede permitir construir 
piezas musicales realmente complica- 
das sin demasiado esfuerzo y en muy po- 
cas líneas. Veamos algunos ejemplos, 
por orden de complejidad creciente: 


1. Una pieza musical compuesta por 
mi hijo Enrique cuando tenia cinco años 
de edad. 


CONCITO 
PLAY 'M203L2TS' 
PLAY 'GO4ECO3P3G3AG3F3GE*” 


PLAY 'GO4ECO3P3G3AG3F36G1' 
PLAY 'GO4ECO3P3G3AG3F3GE' 
PLAY 'GGGP3G3AG3G3C1' 


2. Una pieza musical compuesta por 
mi hija Maria de los Angeles cuando te- 
nia siete años de edad. 


'M203L2T5S" 
*C3EC302GG03D3FD302G1' 
'03C3EC302GGG3G3A3B303C1' 
*C3EC3026G03D3FD30261' 
'03E3GE302GGG303C02B303C1' 


3. El Himno nacional español. 


HIMNO 
PLAY '02L2T3M103C02G03EL3CGFEDCCO2BAG' 


PLAY '03L2CDE.L3GFEDCG1G2EGF2DFE2CED* 
PLAY *02GABO3L2CDL3EFGFL2EDC1P1.' 


- 


4. Un fragmento de Ensueño (o Reve- 
rie), de Roberto Schumann. 


REVERIE 
ES PLAY *M2T303L3'" 

[21 Atv '* FIFEFAO4CM1FM2F1EDCFO3GAB-O4DO3FGAB+G1C2F1FEFAOUCM1AM2ZAZ2.GF* 
31 B+ ' EFADFECCE-D1E.M1C4M2C2.03C' 

141 PLAY. CL" -A,B. AD 

15] PLAY '*F1FEFAO4CM1E-E- 1M2DC03B-04DO3GAB-GGAG2.M1DM2DZPF* 

16) PLAY '*B-1B-AB-O4DFMJB-B-1M2AGFADEFDDEDOSAMIAMZAAZGZ * 

PLAY A, '*DCFO3GAB-04DO3GAB-OMDO3DEF1PO" 


5. Unfragmento de Para Elisa, de Beethoven. 


ELISA 
PS Se0 
[2] PLIF *TuUMI* 

131 L:PLAY EL 1**04L3ED+ED+E03B04DC0342PCEAB2P* 

14] PLAY 'EG+BO4C2PO3E* 

15] PLAY EL1,'EO4C03BA2P* 

16) (aASrtas)/0 

71] PLAY *BOCDE2.03GOMFED2.03FO4EDC2.03E04DC03B2EFO4E0O3E0O4E2.:D+"' 
L 


6. El vals de La Bella Durmiente del este programa dura, aproximadamente, 
Bosque, de Chekovski. La ejecución de cinco minutos. 


[0J DURMIENTE 
11) Swe- 1 

ER PLAY '*T6L2M1' ,4,A*-*02C03EEO1GO3EE' 

13] 1:A* 'M204C1.03B1.04C103ABB+AB1O4DE1C+D0.G1.F+1.F1D*" 

14] PLAY AcA,'* FEDA1GF1M1EM2EDC+D03ABO4C1.03B1.04C103A' 

£5.] PLAY *BB4+AB104M1DM2D1C4+D0 .L1EFF+AGBB4BAL3GPF+GBAGEDEDO3BG' 

161 B+ * PO4G1A1B2B4 PD+EFEGPC4+DEDEPC-CDCEDCC-COBGAGPOUF +GAGBAGF+GD+EP* 

Ue PLAY B,B+B,'*G1A1B2B+PD+EFEGPC+DEDEPC-CDCEDCOBBAGF+POME+F4+GF4+BAGF+EDG' 
(8) PLAY ' *FEDEDL2*,A 

[91] PLAY *BO4CC+D1C-E1C+L3FP203C4+DFAG+AOMC+DFL1G+ABOSDCEFEDL3CP* 

[10] »(SWenSW)/LA 

[11] PLAY A+ *P1.04G205D1.046162B+1.G1L2EGDAGDAGD+EC-C* 

1121. PLAY B+*G05D1.04G16B+1.GLABAGF+B+.B3E1.* 

LUST LELEAFPA, Bb, “Di. * 

(14) >» 

1151 L1:PLAY 'O4BB+GECPO3BB+GEC2P1EPP1CPP1' 


La conversión de estos programas a en L16, T3 en 196, T4 en 1120, T5 en T156, 
otros equivalentes escritos en BASIC es Tó en 1198, MO en MS, M1 en MN y M2 en 
muy sencilla. Obsérvese que Ll debe ML. Por último, la conversión de las longi- 
transformarse en L2, L2 en L4, L3 en L8, L4 tudes de las notas es idéntica a la de Ln. 


Ol FRAMEWORK 


RAMEWORK constitu- 
ye un paquete inte- 
grado que incluye un 
procesador de tex- 
tos, una base de da- 
tos, una hoja electró- 
nica, gráficos y co- 
municaciones. 

La utilización de este paquete se reali- 
za a través de ventanas con las cuales se 
pueden ver los esquemas, como podre- 
mos ver más adelante. 


. 1 Pantalla de presentación de FRAME- 
RK. 


La gran ventaja de un paquete integra- 
do de este tipo es la posibilidad de utili- 
zar los ficheros por todos los módulos, lo 
que evita la repetición de los datos. Exis- 
ten tres formas posibles de comunicar los 
datos de un módulo a otro. 

La primera consiste en ir abriendo ven- 
tanas en las que se van incluyendo los 


APLICACIONES 


datos proporcionados por cada uno de 
los módulos. La segunda posibilidad es 
referenciar los datos de la hoja electró- 
nica o de la base de datos por el nom- 
bre de fichero y el número de archivo 
que ocupa el dato, de esta forma cual- 
quier cambio que se efectuase en la hoja 
o en la base de datos se transformará au- 
tomáticamente al sitio donde se mandó. 

La última manera es a través de los es- 
quemas; ésta consiste en una serie de 
ventanas que llamarán a una serie de 
otras ventanas, produciendo estructuras 
parecidas a las llamadas de árbol de las 
bases de datos jerárquicas. 


Las ventanas de nivel más interno pue- 
den ser cualquier tipo. Aunque teórica- 
mente el número de niveles puede ser ili- 
mitado, en la práctica queda restringido 
por la capacidad de memoria del orde- 
nador que se esté utilizando. 


2 APLICACIONES 


Tratamiento de textos 


En FRAMEWORK la aplicación central la 
constituye el procesador de textos. El 
que incluye este paquete es de gran po- 
tencia y además de poseer todas aque- 
llas funciones del procesador de textos 
habituales, tales como centrado de tex- 
to, modificación y supresión. Incluye 
subrayados, alineación a la derecha, etc. 
Sin embargo, la longitud máxima de los fi- 
cheros queda reducida a la capacidad 
de memoria del ordenador, ya que los 
documentos se almacenan enteros en la 
memoria RAM. 


lA Fig. 3. Opciones de manejo de discos. 


¡O Gráficos 


Al módulo de creación de gráficos se 
accede desde el submenú gráficos. Estos 
gráficos se generan a partir de los datos 
contenidos en los ficheros de la base de 
datos y de la hoja de cálculo. Los gráfi- 
cos son de tipo empresarial y pueden ser 
de tipo: de barras, de pastel, de líneas, 
de puntos y de ejes XY. Pueden superpo- 
nerse gráficos diferentes y realizarlos con 
más de un fichero, así como cambiar una 
escala. 


O Base de datos 


La base de datos permite el manteni- 
miento de los ficheros necesarios. Para 
crear uno de ellos es necesario suminis- 


trar al ordenador el número de registros 
que va a contener. No permite la crea- 
ción de índices, ya que el fichero está 
contenido en la memoria central, con lo 
que su acceso es siempre directo. 

A los ficheros de la base de datos se le 
pueden añadir campos y registros, pu- 
diendo relacionarse aquellos registros 
que interesen mediante la creación de 
filtros; éstos pueden ordenarse tanto as- 
cendentemente como descendente- 
mente. 


Crear ventasa para peoceso de textas o para contener gráficas u otras ventanas ; 


[A Fig. 4. Ventana de crear. 


¡O Hoja electrónica 


Para trabajar con la hoja electrónica 
hay que especificar primero su tamaño, 
filas y columnas. 

A cada celdilla o grupos de ellas es po- 
sible etiquetarlos poniéndoles un nom- 
bre, opción muy útil cuando hace de re- 
ferencia posteriormente. 

Este módulo incluye numerosas funcio- 
nes matemáticas, estadísticas, financie- 
ras y trigonométricas, etc. 

Una de las características más intere- 
sante es la de relacionar datos proce- 
dentes de otras hojas de cálculo, reali- 
zando operaciones entre células proce- 
dentes de diversas hojas de cálculo. Una 
de las ventajas importantes de esta hoja 
electrónica es que permite la utilización 
de gran número de los comandos de pro- 
cesos de textos. 


"O Comunicaciones 


El módulo de comunicaciones permite 
conectar el ordenador con las bases de 
datos remotas, así como enviar y recibir 
información, en forma de ficheros de 
todo tipo, tanto de texto como de cual- 
quier otro. Asimismo tiene capacidad 
para realizar la emulación de terminales. 
Puede manejar distintos tipos de mo- 
dems conectados a una línea telefónica. 


:* Situar en columas 
)) Libre desplazamiento 


+» Mostrar nún página 
++ Nunerar etiquetas 


Ml tine 
sualizar efi 
-- deultar Marcos 


Ajustar tamaño de todas las ventanas contenidas en una seleccionada 


lA Fig. 5. Opciones de las ventanas. 
1 Lenguaje FRED 


A pesar de que todo lo anteriormente vis- 
to ya indica la gran potencia de este 
paquete cuenta con un elemento más, 
que es lo que realmente le otorga una 
flexibilidad de manejo impresionante, el 
lenguaje de programación FRED. 

Este lenguaje, utilizable para cualquier 
aplicación de FRAMEWORK ll, incluye fun- 
ciones para trabajos financieros y mate- 
máticos, formateo y conversión de núme- 
ros, formateo y tratamiento de textos, 
conversiones de formatos numéricos y de 
fechas, manejo de caracteres, pantallas, 
ventanas y menús, un control completo 
de las secuencias de ejecución de los 
programas, así como el soporte de las 
funciones y aplicaciones generadas por 
el usuario. 

Los programas y las fórmulas de líneas 
múltiples pueden contener hasta 64.000 
caracteres de longitud, pudiéndose ade- 
más insertar comentarios, bien en una lí- 


. Gráficos circulares 
+» Lineas 
«+ Puntos 


Y 
»» Cols generan etiquetas 
las 


)) Filas generan etiquetas 


Dibujar gráfico según celdas/campos selecciondos 


lA Fig. 6. Opciones gráficas. 


nea independiente o al final de una sen- 
tencia ejecutable. 

Ya que cada ventana puede tener una 
fórmula, los programas FRED se pueden 
aplicar desde los documentos, hojas 
de cálculo, bases de datos, gráficos y 
comunicaciones. 

También se pueden pasar la informa- 
ción y el control de unos a otros, lo que 
unido al anidamiento de ventanas, per- 
mite la construcción de cualquier tipo de 
aplicación para cubrir las necesidades 
del usuario. 

Realmente todas las funciones del FRA- 
MEWORK son fórmulas realizadas en FRED, 
de forma que mediante este lenguaje se 
puede acceder a cualquier operación 
de FRAMEWORK. 

Es imposible pasar revista a todas las fun- 
ciones del FRED. Sin embargo, y para dar 
una pequeña muestra de su potencia, 
he aquí alguna de sus peculiaridades: 


— Manejo de variables locales. 

— Funciones de construcción de fun- 
ciones. 

— Funciones de referencia y manejo 
de ventanas. 

— Sentencias de bifurcación y reitera- 
ción. 

— Funciones de interfaz de usuario. 

— Generación de macroinstrucciones. 

— Funciones de formato e impresión. 

— Manejo de series de datos. 


En definitiva, FRED ofrece una versatili- 
dad difícil de igualar, tanto por la poten- 
cia de sus funciones como por la flexibi- 
lidad de manejo. 


PASCAL 


NA vez visto cómo 
programar las opera- 
ciones principales 
que se pueden reali- 
zar con polinomios, 
vamos a desarrollar 
un programa que, por 
medio de esos proce- 
dimientos, nos permita obtener las raíces 
reales de un polinomio cualquiera. Para 
ello utilizaremos el denominado método 
de Sturm. 


O El método de Sturm 


El método (que no justificaremos) con- 
siste en lo siguiente: 


A partir del polinomio cuyas raíces 
queremos calcular se genera un conjun- 
to de polinomios denominado “secuen- 
cia de Sturm”. Si guardamos esa secuen- 
cia en una tabla de polinomios (a la que 
llamaremos Sec), la forma de generarla 
sería la siguiente: 


Sec(0) el polinomio original. 

Sec(1) la derivación de Sec(0). 

Sec(2) el resto de la división de Sec(0) 
entre Sec(1), cambiado de sig- 
no. 

Sec(3) el resto de la división de Sec(1) 
entre Sec(2), cambiado de sig- 
no. 


Y así hasta llegar a Sec(N), donde N sería 
el grado del polinomio original, es decir, 
de Sec(0) 


Supongamos que el grado fuese 3; sien 
un punto dado evaluásemos por orden 
los polinomios de la secuencia y nos fijá- 
semos únicamente en el signo de cada 
resultado, podríamos llevar la cuenta de 
los cambios de signo que se fuesen pro- 


El Pascal y las matemáticas (2) 


duciendo hasta llegar a Sec(3). Por ejem- 
plo, si los signos de Sec(0), Sec(1), Sec(2) y 
Sec(3) fuesen, respectivamente, más, 
más, menos y más, el número de cambios 
de signo sería 2 (el paso de más a me- 
nos, y el de menos a más). 

Pues bien, resulta que si evaluamos el 
número de cambios de signo de la se- 
cuencia de Sturm de un polinomio dado 
en dos puntos distintos, la diferencia en- 
tre ambos resultados nos indica la canti- 
dad de raíces reales del polinomio que 
se encuentran entre esos puntos. En con- 
creto, la diferencia en los números de 
cambios de signo que se producen en 
menos infinito y más infinito indica el to- 
tal de raíces reales que existen. El núme- 
ro de cambios de signo en el menor de 
los dos puntos es siempre mayor o igual 
que en el otro. 

Por tanto, el método consiste en, una 
vez que se ha determinado un intervalo 
en el que existe alguna raíz real, ir estre- 
chando el cerco en torno a ella hasta de- 
terminarla. 

Veamos un ejemplo. Llamemos ¡10,9 a 
una función que nos indique el número 
de cambios de signo en X; si C(— infinito) 
vale 3 y C(+ infinito) vale 2, eso quiere 
decir que hay una única raíz real. Si a 
continuación evaluamos C(0) y vale 3, 
eso quiere decir que la raíz está entre 0 
y +infinito; si evaluamos C(100) y vale 2, 
la raíz está, por tanto, entre 0 y 100, etc. 

Excepto cuando el grado es cero, no 
resulta posible evaluar un polinomio en 
más o menos infinito, aunque sí resulta 
posible conocer el signo del resultado sin 
más que observar su grado y el coefi- 
ciente del término de mayor grado. 

En más infinito, el signo del resultado 
(que en valor absoluto es infinito) coinci.- 
de con el del coeficiente. En menos infi- 


nito sucede lo mismo si el grado es par, Veamos cómo llevar a la práctica todo 
y es al contrario si el grado es impar. esto: 


program Sturm; 


A A A A A A A A A A A A A A A q q A AA AAA e 
£ Facilita la obtención de las raíces reales de un > 
£ polinomio cualquiera por medio del míetodo de Sturm > 
A A A A A A AAA AA A XA A AAA AA AA A AAA A A > 
const 


Grado_Max = 15; 


type 

Grado_t = 0..Grado_Max; 

Polinomio_t = record 
Coef : array [Grado_t3 of real; 
Grado: Grado_t 
end; 

Secuencia_t = array [Grado_tJ of Polinomio_t; 


Pol: Polinomio_t; £ para el polinomio cuyas raices se van a obtener 3 
Sec: Secuencia t; £ para la secuencia de Sturm asociada > 


X + real; 

Ca : char; 

Il : integer; 

CA A A A A A A A A AAA e e e e e e e a e o e o e o 3 
function VALOR (var P: Polinomio_t; X: real): real; 
£ ara dle cr rca Dann e o A mann o a AAA a e e . 

í Da el valor del polinomio P en X 3 

e o ll cl e 3 

var Acumula: real: l: integer; 
hegin 

Acumula := 0.0; 

with P do 


for 1 := Grado downto O do 
Acumula := Acumula * X + Coef [i7; 
Valor := Acumula 


end; 

e e e e e e e e el da vo. cd esta 3 
procedure DERIVAR (var FP, D: Polinomio_t); 

(o nc e e a e 6 vi ei e a e q o 3 


%£ Hace D igual a la derivada de P 73 


var 1: integer; 
begin 
with P do 
begin 
for 1 := 1 to Grado do 
D.Copf li-1] 3= Coef til Xx 13 
D.Grado := Grado - 1 


end 
end; 
A A A e e e e 5 
procedure NORMALIZA (var Pz Polimomio_t); 
A P 


t£t Si el primer coeficiente es nulo > 
t reduce Grado hasta que no lo sea > 


var Parar: boolean; 
begin 
Parar := false; 
with P do 
while (Grado >= 0) and not Parar do 
if Coef [Grado <> 0.0 then Parar := true 
else Grado := Grado - 1 


end; 

o A o > 
procedure DIVIDIR (var N, D, C, R: Polinomio_t); 

hm no 3 


t Hace C y R igual al cociente y 3 
t al resto de dividir N entre D. > 


var K: real; 1, Dif: integer; 
begin 
Normaliza (D); £ Por si su primer coeficiente es O. 73 


20 PASCAL 


if D.Grado >= O then ( Si es un polinomio no nulo... > 
begin 
R := N; 
C.Grado := N.Grado - D.Grado; 
with R do 
while Grado >= D.Grado do 
begin 
í£ exponente y coeficiente a utilizar: > 
Dif := Grado - D.Grado; 
K ¿= Coef [Grado / D.Coef [D.GradoJ; 


£ Resto := Resto — (K Kk X"Dif) * Divisor:z > 
for 1 := Grado -—- 1 downto Dif do 

Coef[iJ:= Coeff[il - K XK D.Coefli-dif]; 
Grado := Grado - 1; 


£ el término empleado corresponde al cociente: 3 
C.Coef [DifJ := K 

end 
end 
else 

begin 

writeln; 
writeln (*Error:z División por polinomio nulo.?”); 
writeln (”Pulse Intro para seguir.?”); 


readln 
end 
end; 
£ A A A A A A A A A A A e e e e e e e e 
procedure LEE_POL (var Pz Polinomio_t;j Letra: char); 
ÑO > 
í£ Pide grado y coeficientes de P; saca Letral J] de pregunta > 
do A e e e e e e e e o o e y 
var Il: integer; 
begin 


write (*Grado = ?)3 readlin (1); writeln; 
if (1 <= Grado_Max) and (1 > 0) then with P do 
begin 
Grado := 1; 
for 1 := Grado downto O do 
begin 
write (Letra,*[”,1,*J= ”?);3 
readin (Coef [iJ) 


end; 

Normaliza (P); 

end 
end; 
A o o o O a a a a SS 
procedure SACA_POL (Pz: Polinomio_t3 Letra: char); 
AA A A A A A A e pi 
í Saca grado y coeficientes de P; saca Letral J de pregunta >) 
QA a e e a e e 3 

var l: integer; 
begin 
with P do 

for I:z=Grado downto O do 

writeln (Letra,*[”*,1,*1= ”, Coef [iJ) 

end; 
£ A e e e a a e. 
procedure OBTENER_SECUENCIA (Pz Polinmomio_t; var S: Secuencia_t); 
AAA A | A 3 
£ Hace F igual a uma secuencia de Sturm para P. > 
£ El cociente de las divisiones no se utiliza. > 
A a o o a e e e e e 3 
var 

Cociente: Polinomio_t; 

A : integer; 
begin 


5 103] := P;3 
Derivar (P, S (1); 


A e e e 3 
for 1 := 2 to P.Grado do 
begin 
Dividir (S [i-2J3, S [i-11, Cociente, S(ild); 
A a a a a e A A > 
£ Cambio del signo de los coeficientes: > 
A A A A A A ATA A A 
with Sil do for J := O to Grado do Coef[jJ] := - Coef([jl 
end 


end; 


function CAMBIOS_DE_SIGNO (var S: Secuencia_t; X: real): integer; 
Eq A A A A A A A A A A 3 
í Devuelve el número de cambios de signo de S en X 3 
E A A q A A A A A A A 3 


var 
Signo_Previo, Y : real; 
I, Cambios : integer; 
begin 


í búsqueda del primer polinomio con valor no nulo en X: > 
TES =1 
repeat 
Il := I + 13 
Y 3= Valor (Slild, X); 
UNta11> Y <A 0,07 


A A > 

Signo_Previo:= Y / abs(Y); í Se guarda +1 o —1, según el signo > 

Cambios := 0; 

Eq q A A A A y 

for 1 := 1 + 1 to S[OJ.Grado do í sequir con los restantes: > 
begin 


Y := Valor (S[iJ, X); 
í Si se produce un cambio de signo: > 
if Signo_Previo * Y < 0.0 then 


begin 
Cambios := Cambios + 1; 
Signo_Previo:= Y / abs(Y) 
end 
end; 
A A 3 
Cambios_de_Signo := Cambios 
end; 
OA A A A A A A A A A A A A A A > 
function CAMBIOS_EN_INFINITO (var S: Secuencia_t3 Tipo: integer): integer; 
QA e e > 


£ Devuelve el número de cambios de signo de S en > 
fl + infinito (Tipo = +1) y -infinito (Tipo = -1) > 


A a e e e e e e e e > 
var 

Signo_Previo, Y : real; 

1, Cambios : integer; 
begin 


Cambios := 0; 
with S[OJ do 
begin 
Y := Coef [Grado]; 
if odd (Grado) and (Tipo = -1) then Y := -Y; 


Signo_Previo := Y / abs(Y) £ presupone S[OJ] mormalizado > 
end; 

QA e e o e e > 

for 1 := 1 to S[OJ.Grado do with S[iJ do 
begin 


if Grado ¿ O then Y := 0.0 í polinomio nulo... 3 
else Y := Coef [Gradol; 
if odd (Grado) and (Tipo = -1) then Y := -Y; 
£ Si se produce un cambio de signo: 3 


if Signo_Previo kx Y < 0.0 then 


begin 
Cambios ¿= Cambios + 1; 
Signo_Previo:= Y / abs(Y) 
end a 
end; 


Cambios_en_Infinito := Cambios 


end; 
£ q (—— TESTS CIECILACINALATADA) 
£ PROGRAMA PRINCIPAL e 
begin 
repeat 

writeln; 

writeln (*1 - Introducir polinomio.”); 

writeln (*2 - Mostrar Secuencia de Sturm.?”): 

witeln (?3 — Búsqueda de raices.”); 

writeln (*4 - Salida del programa.”); 

writeln; 

write (ESCOJA OPCION: ”); readin (Ca); 

witeln; 


case Ca of 


PASCAL 


: begin í entrada de datos 2 
Lee_Pol (Pol, *P*)5 


Obtener _ Secuencia (Pol, Sec) 
end; 


for 1 := O to Pol.Grado do £ mostrar secuencia de Sturm 3 
begin 
writeln (” 
Saca_Pol (Sec[lil, *S”); 
writeln; 


write (”Pulse Intro para seguir”); readln 
end; 


begin £ Búsqueda de raices > 
writeln (”*Número de cambios de signo en — infinito = ”, 


A Cambios_en_ Infinito (Sec, -1)); 
writeln (*"Número de cambios de signo en + infinito = ”, 


Cambios_en_Infinito (Sec, +1)); 
repeat 


writeln; 

write (>X = ”)3j read (X); 

for 1:=0 to Pol.Grado do 
begin 
writeln; 
write (?8(*,i,”*J= ”,Valor t(tSectil, X)3) 
end; . 

writeln (” NUMERO DE CAMBIOS DE SIGNO = ?, 

Cambios_de_Signo (Sec, X)); 
witeln; 
write (*¿Desea seguir? (S/N) ”); readln (Ca); 
until (Ca = "N*) or (Ca = *"nm”) 
end 


end 
until Ca = *4” 


end. 


(PROLOG -1) 


A mayoría de los len- 
guajes de programa- 
ción consisten en de- 
finiciones, más o me- 
nos formales y preci- 
sas, de un algoritmo. 
En ellos se indica qué 
clase de datos nece- 
sitamos para resolver nuestro problema y 
qué operaciones debemos realizar con 
ellos para obtener el resultado deseado. 
Por tanto, sólo sirven para resolver, de for- 
ma automática, un problema cuya solu- 
ción general conocemos con anteriori- 
dad. 


Esto no es así en PROLOG; en él defini- 
mos objetos y relaciones o propiedades 
de éstos. De estas relaciones el ordena- 
dor será capaz de indicarnos nuevas re- 
laciones existentes, o qué objetos tienen 
determinadas propiedades, pudiendo 
resolver problemas cuya solución gené- 
rica no nos es conocida previamente. 


De esta propiedad proviene el nombre 
PROLOG (PROgramación LOGica) para 
distinguirlo de la tradicional programa- 
ción algorítmica. Fue inventado por Alain 
Colmenaeur en 1970. 


Hay que tener en cuenta que debemos 
conocer algo de cálculo proposicional, 
o de lógica formal, ya que de lo contra- 
rio no sabríamos qué le estamos indican- 
do que haga. 


La aplicación principal es la creación 
de bases de datos más o menos inteli- 
gentes y la llamada “inteligencia artifi- 
cial”; dentro de ésta suele ser utilizado 
para comprensión del lenguaje natural 
(el hablado por los seres humanos nor- 
malmente), resolución de problemas e 
implementación de sistemas expertos. 


OTROS LENGUAJES 


Por sus especiales características es 
poco usado para las aplicaciones más tí- 
picas de los ordenadores hasta ahora, 
como cálculo de contabilidades o 
cálculo científico, ya que para esto exis- 
ten lenguajes más específicos. 

Otra diferencia con los lenguajes más 
convencionales es que no escribimos de 
golpe el programa en un editor y des- 
pués lo compilamos. Es un intérprete al 
que le vamos proporcionando hechos y 
reglas relacionadas con éstos, mante- 
niendo una especie de diálogo. 

Si le indicamos un hecho o una regla él 
la añadirá a su base de conocimientos 
para aplicarla más tarde. Si le pregunta- 
mos algo, él nos indicará si con los cono- 
cimientos que posee esa proposición es 
verdadera o falsa. También le podemos 
preguntar qué objetos, de los que él co- 
noce, cumplen una determinada propie- 
dad. 

El final de cada sentencia que le diga- 
mos debe terminar en un punto (*“.”). La 
función de esto es que si una sentencia 
ocupa más de una línea el intérprete de 
PROLOG espera a tenerla completa para 
empezar a interpretarla. 

Por ser todos los intérpretes muy lentos, 
al estar los ordenadores diseñados 
para ejecutar Óptimamente programas 
algorítmicos, debemos no olvidarnos del 
punto final, pues podemos creer que 
está interpretando nuestra sentencia, 
cuando, en realidad, está esperando el 
punto de terminación. 

Otro error, muy corriente, que debemos 
evitar es el de escribir un nombre de dos 
formas distintas; al distinguir entre mayús- 
culas y minúsculas podemos creer que 
es el mismo nombre, cuando él lo consi- 
dera distinto, con los posibles errores fa- 
tales que ello puede conllevar. 


“0 OTROS LENGUAJES 


Un objeto existe con que, sencillamen- 
te, lo nombremos; no es necesario que 
los definamos previamente. 

Un hecho es la indicación de una pro- 
piedad de un objeto, o de una relación 
entre objetos. 

Veamos un ejemplo: 


Para declarar “Pedro tiene un libro”, en 
PROLOG se escribiría, tiene (Pedro, libro). 


En esta declaración observamos que 
se indica primero la relación, o predica- 
do, y después los objetos que la verifi- 
can, o argumentos; en este caso sería un 
predicado con dos argumentos. 


También podemos observar que el or- 
den de la colocación de los objetos es 
importante, ya que: 


tiene (libro, Pedro). 


No significaría lo mismo, pues indicaría 
que Pedro es poseído por un libro, lo que 
no tiene mucho que ver con lo que que- 
ríamos declarar. 

Según la versión de PROLOG que utili- 
cemos, los hechos pueden escribirse de 
maneras ligeramente distintas. Como se 
observará, cada hecho es una lista (ver 
capítulo dedicado al lenguaje LISP para 
la noción de lista); por tanto, puede ex- 
presarse de diversas formas según la no- 
tación aceptada. 

El PROLOG no distingue entre lo que 
pueda significar los datos que posee, 
sólo los almacena en su base de datos 
para usarlos posteriormente, de ahí que 
el significado de los nombres de los ob- 
jetos y las relaciones debemos asignar- 
los subjetivamente para hacerlos lo más 


inteligibles posible; teniendo en cuenta 
las posibles arbitrariedades, pueden 
causar en cualquier persona que lee el 
programa graves problemas de com- 
prensión. Por parte del ordenador no ha- 
bría problemas en expresar la anterior re- 
lación como: 


a (b, c). 


PREGUNTAS 


Una vez que se han definido algunos 
hechos podemos hacer preguntas sobre 
ellos. En PROLOG las preguntas son como 
cualquier hecho, sólo que llevan delan- 
te el símbolo de pregunta, una interroga- 
ción y un guión “2.” y detrás de ellas un 
hecho. El intérprete analizará el hecho y 
nos dirá si es verdadero o falso, respon- 
diéndonos sí o no (yes o no, por estar nor- 
malmente en inglés). 

Veamos algunos ejemplos: 


Supongamos la siguiente base de co- 
nocimientos: 


posee (pedro, libro). 
posee (pedro, manzana). 
posee (juan, pera). 
posee (juan, dinero). 


Nos respondería a las siguientes pre- 
guntas: 


?-posee (pedro, pera). 

No. 

?-posee (juan, libro). 

No. 

An (pedro, manzana). 
O. 

?-posee (juan, pera). 

Yes. 


